From e39c8b5047c63336f67a7749e8f8cdd539c5eb22 Mon Sep 17 00:00:00 2001
From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Fri, 23 Jul 2010 13:08:35 +0200
Subject: [PATCH] exit with non-zero status when there are failed tests

---
 tests/test_helper.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 59470e64..ef1f9923 100644
--- 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
-- 
2.45.2