tools.test: Make the flag public. Finish porting tester changes to fuzzer.

diff --git a/basis/tools/test/fuzz/fuzz.factor b/basis/tools/test/fuzz/fuzz.factor
index 83a1a26908be29e9a3e44606164e5363e8dd939c..39bea44598a4ec8c29c404d9107c139256f38616 100644 (file)
--- a/basis/tools/test/fuzz/fuzz.factor
+++ b/basis/tools/test/fuzz/fuzz.factor
@@ -31,10 +31,10 @@ M: fuzz-test-failure summary
         " trials" %
     ] "" make ;
 
-: (fuzz-test) ( generator predicate -- error ? )
+: (fuzz-test) ( generator predicate -- error/f failed? tested? )
     [ fuzz-test-failures [ f f ] ]
     [ '[ _ fuzz-test-trials get <fuzz-test-failure> t ] ] bi
-    if-empty ; inline
+    if-empty t ; inline
 
 PRIVATE>
 

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 06a9e851bf2769a40da9af64583a8029420ac6ff..e8c8a1a92287f27ffab81f542b2471e1668a68bf 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -43,6 +43,9 @@ t restartable-tests? set-global
         swap >>error
         error-continuation get >>continuation ;
 
+SYMBOL: long-unit-tests-enabled?
+long-unit-tests-enabled? [ t ] initialize
+
 <PRIVATE
 
 : notify-test-failed ( error experiment path line# -- )
@@ -58,9 +61,6 @@ SYMBOL: current-test-file
 :: (unit-test) ( output input -- error/f failed? tested? )
     [ { } input with-datastack output assert-sequence= f f ] [ t ] recover t ;
 
-SYMBOL: long-unit-tests-enabled?
-long-unit-tests-enabled? [ t ] initialize
-
 : (long-unit-test) ( output input -- error/f failed? tested? )
     long-unit-tests-enabled? get [ (unit-test) ] [ 2drop f f f ] if ;