Print a message when tests fail

2008-10-20 21:07:46 -05:00 · 2008-10-20 21:07:46 -05:00 · 8d5135682f
parent 636873a41c
commit 8d5135682f
1 changed files with 1 additions and 0 deletions
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@ -12,6 +12,7 @@ SYMBOL: failures
    error-continuation get 3array ;

 : failure ( error what -- )
+    "--> test failed!" print
    <failure> failures get push ;

 SYMBOL: this-test