exit with non-zero status when there are failed tests

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 59470e6473b8780c918b1791f3fbbfd03e6010c7..ef1f99233434fe9682ff35ad217a5aaded9a2d51 100644 (file)
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -102,13 +102,13 @@ proc main {} {
     execute_tests "unit/expire"
     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