exit with non-zero status when there are failed tests

This commit is contained in:
Pieter Noordhuis 2010-07-23 13:08:35 +02:00
parent 230729617d
commit e39c8b5047

View File

@ -102,13 +102,13 @@ proc main {} {
execute_tests "unit/expire" execute_tests "unit/expire"
execute_tests "unit/other" execute_tests "unit/other"
execute_tests "unit/cas" execute_tests "unit/cas"
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