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
 }