tools.test: add a --fast option.

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 38769d880c989a9c38ea15d04adeee6c9086ea06..4f3f2ca8a845fa077d39a007e976a3dbd7a68210 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -231,7 +231,10 @@ M: test-failure error. ( error -- )
 : refresh-and-test-all ( -- ) "" refresh-and-test ;
 
 : test-main ( -- )
-    command-line get [
+    command-line get
+    "--fast" swap [ member? ] [ remove ] 2bi swap
+    [ f long-unit-tests-enabled? set-global ] when
+    [
         dup vocab-roots get member? [
             "" vocabs-to-load [ require-all ] keep
         ] [