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

elevate-erg
Doug Coleman 2018-07-06 23:53:40 -05:00
parent a3abec6f5c
commit e21125ac2c
1 changed files with 3 additions and 1 deletions

View File

@ -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