From f7d9827330b7ddabb6dc53a06c154c34b2c6ad6c Mon Sep 17 00:00:00 2001
From: Matt Stancliff <matt@genges.com>
Date: Wed, 18 Jun 2014 08:10:04 -0400
Subject: [PATCH] Add correct exit value to failed tests

---
 tests/cluster/run.tcl  | 1 +
 tests/sentinel/run.tcl | 1 +
 2 files changed, 2 insertions(+)

diff --git a/tests/cluster/run.tcl b/tests/cluster/run.tcl
index 7b7d014b..7af442ec 100644
--- a/tests/cluster/run.tcl
+++ b/tests/cluster/run.tcl
@@ -22,4 +22,5 @@ proc main {} {
 if {[catch main e]} {
     puts $::errorInfo
     cleanup
+    exit 1
 }
diff --git a/tests/sentinel/run.tcl b/tests/sentinel/run.tcl
index 3edde672..66198af9 100644
--- a/tests/sentinel/run.tcl
+++ b/tests/sentinel/run.tcl
@@ -18,4 +18,5 @@ proc main {} {
 if {[catch main e]} {
     puts $::errorInfo
     cleanup
+    exit 1
 }