From b01b32b3c358ebd261b931409a8988824e7acc6f Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 15 Jan 2016 16:50:35 +0100
Subject: Test: Handle LOADING in restart_instance.

---
 tests/instances.tcl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'tests/instances.tcl')

diff --git a/tests/instances.tcl b/tests/instances.tcl
index b3c98a294..2ba67ac19 100644
--- a/tests/instances.tcl
+++ b/tests/instances.tcl
@@ -495,5 +495,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
+        }
+    }
 }
 
-- 
cgit v1.2.1