Possible fix for false positives in issue 141 regression test

diff --git a/tests/integration/replication.tcl b/tests/integration/replication.tcl
index e75801574ef55dacb78dcdf0e6b82a6c87e0f8cc..2c7d98deaa09a679a2e8b744ac626b4030d092e2 100644 (file)
--- 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]