exit with non-zero status when there are failed tests

2010-07-23 13:08:35 +02:00 · 2010-07-23 13:08:35 +02:00 · e39c8b5047
commit e39c8b5047
parent 230729617d
1 changed files with 3 additions and 3 deletions
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@ -103,12 +103,12 @@ proc main {} {
    execute_tests "unit/other"
    execute_tests "unit/cas"

+    cleanup
    puts "\n[expr $::passed+$::failed] tests, $::passed passed, $::failed failed"
    if {$::failed > 0} {
        puts "\n*** WARNING!!! $::failed FAILED TESTS ***\n"
+        exit 1
    }
-
-    cleanup
 }

 # parse arguments