tools.test: Print out test failures at the end of test main.

2018-07-06 23:53:40 -05:00 · 2018-07-06 23:53:40 -05:00 · e21125ac2c
parent a3abec6f5c
commit e21125ac2c
1 changed files with 3 additions and 1 deletions
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@ -212,6 +212,8 @@ M: test-failure error. ( error -- )

 : test-main ( -- )
    command-line get [ [ load ] [ test ] bi ] each
-    test-failures get empty? [ 0 ] [ 1 ] if exit ;
+    test-failures get empty?
+    [ [ "==== FAILING TESTS" print :test-failures ] unless ]
+    [ 0 1 ? exit ] bi ;

 MAIN: test-main