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."