diff options
Diffstat (limited to 'tests/instances.tcl')
| -rw-r--r-- | tests/instances.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/instances.tcl b/tests/instances.tcl index 34c59a11c..358c2affc 100644 --- a/tests/instances.tcl +++ b/tests/instances.tcl @@ -141,6 +141,14 @@ proc pause_on_error {} { set cmd [lindex $argv 0] if {$cmd eq {continue}} { break + } elseif {$cmd eq {show-redis-logs}} { + set count 10 + if {[lindex $argv 1] ne {}} {set count [lindex $argv 1]} + foreach_redis_id id { + puts "=== REDIS $id ====" + puts [exec tail -$count redis_$id/log.txt] + puts "---------------------\n" + } } elseif {$cmd eq {show-sentinel-logs}} { set count 10 if {[lindex $argv 1] ne {}} {set count [lindex $argv 1]} @@ -184,6 +192,7 @@ proc pause_on_error {} { } elseif {$cmd eq {help}} { puts "ls List Sentinel and Redis instances." puts "show-sentinel-logs \[N\] Show latest N lines of logs." + puts "show-redis-logs \[N\] Show latest N lines of logs." puts "S <id> cmd ... arg Call command in Sentinel <id>." puts "R <id> cmd ... arg Call command in Redis <id>." puts "SI <id> <field> Show Sentinel <id> INFO <field>." |