From 628c5641c031a6208850f9395c6a5ec5832130ee Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 25 Jul 2014 16:10:18 +0200
Subject: [PATCH] Cluster test: init test, be patient during restarts.

---
 tests/cluster/tests/includes/init-tests.tcl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/cluster/tests/includes/init-tests.tcl b/tests/cluster/tests/includes/init-tests.tcl
index dd152ee1..722aed9e 100644
--- a/tests/cluster/tests/includes/init-tests.tcl
+++ b/tests/cluster/tests/includes/init-tests.tcl
@@ -14,8 +14,13 @@ test "(init) Restart killed instances" {
 
 test "Cluster nodes are reachable" {
     foreach_redis_id id {
-        # Every node should just know itself.
-        assert {[R $id ping] eq {PONG}}
+        # Every node should be reachable.
+        wait_for_condition 1000 50 {
+            [R $id ping] eq {PONG}
+        } else {
+            catch {R $id ping} err
+            fail "Node #$id keeps replying '$err' to PING."
+        }
     }
 }