diff --git a/tests/integration/cross-version-replication.tcl b/tests/integration/cross-version-replication.tcl index 6ec3d0db80..104e821460 100644 --- a/tests/integration/cross-version-replication.tcl +++ b/tests/integration/cross-version-replication.tcl @@ -18,7 +18,7 @@ start_server {tags {"repl needs:other-server external:skip"} start-other-server start_server {} { test "Start replication from $primary_name_and_version" { r replicaof [srv -1 host] [srv -1 port] - wait_for_sync r + wait_for_sync r 500 100 # The key has been transferred. assert_equal bar [r get foo] assert_equal up [s master_link_status] diff --git a/tests/support/util.tcl b/tests/support/util.tcl index 8f3cda3a4c..5ba1f8ea55 100644 --- a/tests/support/util.tcl +++ b/tests/support/util.tcl @@ -110,8 +110,8 @@ proc waitForBgrewriteaof r { } } -proc wait_for_sync r { - wait_for_condition 50 100 { +proc wait_for_sync {r {maxtries 50} {delay 100}} { + wait_for_condition $maxtries $delay { [status $r master_link_status] eq "up" } else { fail "replica didn't sync in time"