From db9e718c8a004b5fbd012f106a2e6d670dfc80c2 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Mon, 3 Mar 2014 13:23:32 +0100
Subject: [PATCH] Sentinel test: foreach_instance_id now supports 'continue'.
---
tests/sentinel.tcl | 2 ++
1 file changed, 2 insertions(+)
diff --git a/tests/sentinel.tcl b/tests/sentinel.tcl
index b15bce65..80f9f90b 100644
--- a/tests/sentinel.tcl
+++ b/tests/sentinel.tcl
@@ -212,6 +212,8 @@ proc foreach_instance_id {instances idvar code} {
set errcode [catch {uplevel 1 $code} result]
if {$errcode == 1} {
error $result $::errorInfo $::errorCode
+ } elseif {$errcode == 4} {
+ continue
} elseif {$errcode != 0} {
return -code $errcode $result
}