From 06312eed86c72a4b259de2e78818827dba97b5c3 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 12 Jan 2012 16:24:41 +0100
Subject: [PATCH] Possible fix for false positives in issue 141 regression test

---
 tests/integration/replication.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/integration/replication.tcl b/tests/integration/replication.tcl
index e75801574..2c7d98dea 100644
--- a/tests/integration/replication.tcl
+++ b/tests/integration/replication.tcl
@@ -115,7 +115,11 @@ start_server {tags {"repl"}} {
                     stop_write_load $load_handle2
                     stop_write_load $load_handle3
                     stop_write_load $load_handle4
-                    after 1000
+                    set retry 10
+                    while {$retry && ([$master debug digest] ne [[lindex $slaves 0] debug digest])} {
+                        after 1000
+                        incr retry -1
+                    }
                     set digest [$master debug digest]
                     set digest0 [[lindex $slaves 0] debug digest]
                     set digest1 [[lindex $slaves 1] debug digest]