Test: Handle LOADING in restart_instance.

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
+        }
+    }
 }