From 0d35b467610baa39d23f76049cba0f09f54db0d4 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 25 Jul 2014 16:09:31 +0200
Subject: [PATCH] Cluster test: 03 unit speedup, don't send WAIT to slaves.

---
 tests/cluster/tests/03-failover-loop.tcl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tests/cluster/tests/03-failover-loop.tcl b/tests/cluster/tests/03-failover-loop.tcl
index 4106f146..3a966732 100644
--- a/tests/cluster/tests/03-failover-loop.tcl
+++ b/tests/cluster/tests/03-failover-loop.tcl
@@ -54,8 +54,11 @@ while {[incr iterations -1]} {
             catch {$cluster set $key:$i $val:$i} err
             assert {$err eq {OK}}
         }
-        # Wait for the write to propagate to the slave
-        R $tokill wait 1 20000
+        # Wait for the write to propagate to the slave if we
+        # are going to kill a master.
+        if {$role eq {master}} {
+            R $tokill wait 1 20000
+        }
     }
 
     test "Killing node #$tokill" {