set rd [redis_deferring_client]
$rd brpoplpush a b 5
r lpush a foo
- after 1000
- assert_equal [r debug digest] [r -1 debug digest]
+ wait_for_condition 50 100 {
+ [r debug digest] eq [r -1 debug digest]
+ } else {
+ fail "Master and slave have different digest: [r debug digest] VS [r -1 debug digest]"
+ }
}
test {BRPOPLPUSH replication, list exists} {
[lindex $slaves 2] slaveof $master_host $master_port
# Wait for all the three slaves to reach the "online" state
- set retry 100
+ set retry 500
while {$retry} {
set info [r -3 info]
if {[string match {*slave0:*,online*slave1:*,online*slave2:*,online*} $info]} {