gvsafronov/futriix
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
antirez 2014-02-23 18:01:30 +01:00
parent afd3db17a0
commit 09dec3613e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/sentinel.tcl
View File

@ -124,11 +124,13 @@ proc main {} {
# on error in order to give the developer a chance to understand more about # on error in order to give the developer a chance to understand more about
# the error condition while the instances are still running. # the error condition while the instances are still running.
proc pause_on_error {} { proc pause_on_error {} {
puts ""
puts [colorstr yellow "*** Please inspect the error now ***"] puts [colorstr yellow "*** Please inspect the error now ***"]
puts "\nType \"continue\" to resume the test." puts "\nType \"continue\" to resume the test.\n"
while {[gets stdin] ne {continue}} { while 1 {
puts "> " puts -nonewline "> "
flush stdout flush stdout
if {[gets stdin] eq {continue}} break
} }
} }