X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/f65c8f654fafb6cc86804d8f4ca9cdd1b6d978db..7c34643f154f543e1eef7c9855fb8d657146c646:/tests/unit/protocol.tcl diff --git a/tests/unit/protocol.tcl b/tests/unit/protocol.tcl index 516a834a..1700e489 100644 --- a/tests/unit/protocol.tcl +++ b/tests/unit/protocol.tcl @@ -59,6 +59,37 @@ start_server {tags {"protocol"}} { reconnect assert_error "*wrong*arguments*ping*" {r ping x y z} } + + set c 0 + foreach seq [list "\x00" "*\x00" "$\x00"] { + incr c + test "Protocol desync regression test #$c" { + set s [socket [srv 0 host] [srv 0 port]] + puts -nonewline $s $seq + set payload [string repeat A 1024]"\n" + set test_start [clock seconds] + set test_time_limit 30 + while 1 { + if {[catch { + puts -nonewline $s payload + flush $s + incr payload_size [string length $payload] + }]} { + set retval [gets $s] + close $s + break + } else { + set elapsed [expr {[clock seconds]-$test_start}] + if {$elapsed > $test_time_limit} { + close $s + error "assertion:Redis did not closed connection after protocol desync" + } + } + } + set retval + } {*Protocol error*} + } + unset c } start_server {tags {"regression"}} {