diff options
Diffstat (limited to 'tests/instances.tcl')
-rw-r--r-- | tests/instances.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/instances.tcl b/tests/instances.tcl index ccb11b25b..76754fcdf 100644 --- a/tests/instances.tcl +++ b/tests/instances.tcl @@ -494,5 +494,17 @@ proc restart_instance {type id} { set link [redis 127.0.0.1 $port] $link reconnect 1 set_instance_attrib $type $id link $link + + # Make sure the instance is not loading the dataset when this + # function returns. + while 1 { + catch {[$link ping]} retval + if {[string match {*LOADING*} $retval]} { + after 100 + continue + } else { + break + } + } } |