185             foreach_redis_id id {
186                 puts "=== REDIS $id ===="
193             foreach_sentinel_id id {
194                 puts "=== SENTINEL $id ===="
199             foreach_redis_id id {
200                 puts -nonewline "Redis $id"
203                     append str "@[RI $id tcp_port]: "
204                     append str "[RI $id role] "
205                     if {[RI $id role] eq {slave}} {
206                         append str "[RI $id master_host]:[RI $id master_port]"
216             foreach_sentinel_id id {
217                 puts -nonewline "Sentinel $id"
220                     append str "@[SI $id tcp_port]: "
221                     append str "[join [S $id sentinel get-master-addr-by-name mymaster]]"
275             foreach_instance_id [set ::${type}_instances] id {
276                 if {[instance_is_killed $type $id]} continue
277                 set pid [get_instance_attrib $type $id pid]
290                     puts "Instance type $type, ID $id:"
365     upvar 1 $idvar id
366     for {set id 0} {$id < [llength $instances]} {incr id} {
391 proc get_instance_attrib {type id attrib} {
392     dict get [lindex [set ::${type}_instances] $id] $attrib
396 proc set_instance_attrib {type id attrib newval} {
397     set d [lindex [set ::${type}_instances] $id]
399     lset ::${type}_instances $id $d
406     foreach_redis_id id {
407         if {$id == 0} {
409             R $id slaveof no one
410             R $id flushall
411         } elseif {$id < $n} {
412             R $id slaveof [get_instance_attrib redis 0 host] \
416             R $id slaveof no one
428     foreach_${type}_id id {
429         if {[get_instance_attrib $type $id port] == $port} {
430             return $id
442 proc kill_instance {type id} {  argument
443     set pid [get_instance_attrib $type $id pid]
444     set port [get_instance_attrib $type $id port]
447         error "You tried to kill $type $id twice."
451     set_instance_attrib $type $id pid -1
452     set_instance_attrib $type $id link you_tried_to_talk_with_killed_instance
472 proc instance_is_killed {type id} {  argument
473     set pid [get_instance_attrib $type $id pid]
478 proc restart_instance {type id} {  argument
479     set dirname "${type}_${id}"
481     set port [get_instance_attrib $type $id port]
486     set_instance_attrib $type $id pid $pid
491         abort_sentinel_test "Problems starting $type #$id: ping timeout"
497     set_instance_attrib $type $id link $link