From a9360c62e8b9f0d612e3cb7054d9fb7a1a251f52 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Tue, 25 Feb 2014 08:33:41 +0100
Subject: [PATCH] Sentinel test: jump to next unit on test failure.

Sentinel tests are designed to be dependent on the previous tests in the
same unit, so usually we can't continue with the next test in the same
unit if a previous test failed.
---
 tests/sentinel.tcl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/sentinel.tcl b/tests/sentinel.tcl
index e278aea7..b15bce65 100644
--- a/tests/sentinel.tcl
+++ b/tests/sentinel.tcl
@@ -145,6 +145,8 @@ proc test {descr code} {
             set msg [string range $error 10 end]
             puts [colorstr red $msg]
             if {$::pause_on_error} pause_on_error
+            puts "(Jumping to next unit after error)"
+            return -code continue
         } else {
             # Re-raise, let handler up the stack take care of this.
             error $error $::errorInfo