From: antirez <antirez@gmail.com>
Date: Thu, 12 Jan 2012 15:24:41 +0000 (+0100)
Subject: Possible fix for false positives in issue 141 regression test
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/06312eed86c72a4b259de2e78818827dba97b5c3

Possible fix for false positives in issue 141 regression test
---

diff --git a/tests/integration/replication.tcl b/tests/integration/replication.tcl
index e7580157..2c7d98de 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]