Sentinel test: foreach_instance_id now supports 'continue'.

2014-03-03 13:23:32 +01:00 · 2014-03-03 13:23:32 +01:00 · db9e718c8a
parent 69cc3b692f
commit db9e718c8a
1 changed files with 2 additions and 0 deletions
--- 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
        }