tools.test: add silent-tests? that hides unit-tests.

2019-11-07 13:13:05 -08:00 · 2019-11-07 13:13:05 -08:00 · ec71ef22ee
parent 69849bc925
commit ec71ef22ee
1 changed files with 4 additions and 1 deletions
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@ -29,6 +29,9 @@ T{ error-type-holder
   { quot [ test-failures get ] }
 } define-error-type

+SYMBOL: silent-tests?
+f silent-tests? set-global
+
 SYMBOL: verbose-tests?
 t verbose-tests? set-global

@ -112,7 +115,7 @@ MACRO: <experiment> ( word -- quot )

 :: experiment ( word: ( -- error/f failed? tested? ) line# -- )
    word <experiment> :> e
-    e experiment.
+    silent-tests? get [ e experiment. ] unless
    word execute [
        [
            current-test-file get [