diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl index 914f6ba1..389099ad 100644 --- a/tests/test_helper.tcl +++ b/tests/test_helper.tcl @@ -464,8 +464,11 @@ proc attach_to_replication_stream {} { flush $s # Get the count - set count [gets $s] - set prefix [string range $count 0 0] + while 1 { + set count [gets $s] + set prefix [string range $count 0 0] + if {$prefix ne {}} break; # Newlines are allowed as PINGs. + } if {$prefix ne {$}} { error "attach_to_replication_stream error. Received '$count' as count." }