Commit 7905331e authored by Pieter Noordhuis's avatar Pieter Noordhuis
Browse files

exit with non-zero status when there are failed tests

parent fe2173ae
...@@ -83,12 +83,12 @@ proc main {} { ...@@ -83,12 +83,12 @@ proc main {} {
execute_tests "unit/expire" execute_tests "unit/expire"
execute_tests "unit/other" execute_tests "unit/other"
cleanup
puts "\n[expr $::passed+$::failed] tests, $::passed passed, $::failed failed" puts "\n[expr $::passed+$::failed] tests, $::passed passed, $::failed failed"
if {$::failed > 0} { if {$::failed > 0} {
puts "\n*** WARNING!!! $::failed FAILED TESTS ***\n" puts "\n*** WARNING!!! $::failed FAILED TESTS ***\n"
exit 1
} }
cleanup
} }
# parse arguments # parse arguments
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment