Permalink
Browse files

Sentinel test: minor fixes to --pause-on-error.

  • Loading branch information...
1 parent afd3db1 commit 09dec3613e7af60a084704eb2e80c5cf4ecd1b09 @antirez committed Feb 23, 2014
Showing with 5 additions and 3 deletions.
  1. +5 −3 tests/sentinel.tcl
View
@@ -124,11 +124,13 @@ proc main {} {
# on error in order to give the developer a chance to understand more about
# the error condition while the instances are still running.
proc pause_on_error {} {
+ puts ""
puts [colorstr yellow "*** Please inspect the error now ***"]
- puts "\nType \"continue\" to resume the test."
- while {[gets stdin] ne {continue}} {
- puts "> "
+ puts "\nType \"continue\" to resume the test.\n"
+ while 1 {
+ puts -nonewline "> "
flush stdout
+ if {[gets stdin] eq {continue}} break
}
}

0 comments on commit 09dec36

Please sign in to comment.