tools.test: Print out test failures at the end of test main.
parent
a3abec6f5c
commit
e21125ac2c
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue