tools.test: added a verbose-tests? flag to control test experiment pprint verbosity

I needed this for my image decode unit tests because I don't want the test results to prettyprint big bitmap byte-arrays.

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 2692c5a8b694cdbbae128c2bec53d42490777eba..e8f325bb9d7731152b97c2433299c6c5d08c3dfd 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -79,8 +79,12 @@ MACRO: <experiment> ( word -- )
     [ name>> experiment-title ] bi
     '[ _ ndup _ narray _ prefix ] ;
 
+SYMBOL: verbose-tests?
+t verbose-tests? set-global
+
 : experiment. ( seq -- )
-    [ first write ": " write ] [ rest . flush ] bi ;
+    [ first write ": " write ]
+    [ rest verbose-tests? get [ . ] [ short. ] if flush ] bi ;
 
 :: experiment ( word: ( -- error ? ) line# -- )
     word <experiment> :> e