From 6e12c254efcb7798c4d4d30e0a43498fb560b3a2 Mon Sep 17 00:00:00 2001
From: Keith Lazuka <klazuka@gmail.com>
Date: Wed, 30 Sep 2009 16:58:07 -0400
Subject: [PATCH] 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.
---
 basis/tools/test/test.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 2692c5a8b6..e8f325bb9d 100644
--- 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