diff --git a/tests/cluster/run.tcl b/tests/cluster/run.tcl
index 7b7d014b8..7af442ecc 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 3edde672e..66198af94 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
 }