From 7905331ede21e4e88db2665fd27e1695f98fb46a 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 357d08f7..49412884 100644
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -82,13 +82,13 @@ proc main {} {
     execute_tests "unit/sort"
     execute_tests "unit/expire"
     execute_tests "unit/other"
-    
+
+    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