248 proc test {descr code} {  argument
253     if {[catch {set retval [uplevel 1 $code]} error]} {
260             return -code continue
364 proc foreach_instance_id {instances idvar code} {  argument
367         set errcode [catch {uplevel 1 $code} result]
375             return -code $errcode $result
380 proc foreach_sentinel_id {idvar code} {  argument
381 …set errcode [catch {uplevel 1 [list foreach_instance_id $::sentinel_instances $idvar $code]} resul…
382     return -code $errcode $result
385 proc foreach_redis_id {idvar code} {  argument
386 …  set errcode [catch {uplevel 1 [list foreach_instance_id $::redis_instances $idvar $code]} result]
387     return -code $errcode $result