From 351ad518b3744b22ef2a219c5bd67a234c63a003 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 25 Jul 2014 16:17:13 +0200
Subject: [PATCH] Cluster test: node reachability condition fixed.

---
 tests/cluster/tests/includes/init-tests.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/cluster/tests/includes/init-tests.tcl b/tests/cluster/tests/includes/init-tests.tcl
index 722aed9e..65fc806e 100644
--- a/tests/cluster/tests/includes/init-tests.tcl
+++ b/tests/cluster/tests/includes/init-tests.tcl
@@ -16,7 +16,8 @@ test "Cluster nodes are reachable" {
     foreach_redis_id id {
         # Every node should be reachable.
         wait_for_condition 1000 50 {
-            [R $id ping] eq {PONG}
+            ([catch {R $id ping} ping_reply] == 0) &&
+            ($ping_reply eq {PONG})
         } else {
             catch {R $id ping} err
             fail "Node #$id keeps replying '$err' to PING."