diff options
Diffstat (limited to 'examples/redis-unstable/tests/unit/replybufsize.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/unit/replybufsize.tcl | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/examples/redis-unstable/tests/unit/replybufsize.tcl b/examples/redis-unstable/tests/unit/replybufsize.tcl new file mode 100644 index 0000000..302417c --- /dev/null +++ b/examples/redis-unstable/tests/unit/replybufsize.tcl @@ -0,0 +1,48 @@ +proc get_reply_buffer_size {cname} { + + set clients [split [string trim [r client list]] "\r\n"] + set c [lsearch -inline $clients *name=$cname*] + if {![regexp rbs=(\[a-zA-Z0-9-\]+) $c - rbufsize]} { + error "field rbs not found in $c" + } + return $rbufsize +} + +start_server {tags {"replybufsize"}} { + + test {verify reply buffer limits} { + # In order to reduce test time we can set the peak reset time very low + r debug replybuffer peak-reset-time 100 + r debug reply-copy-avoidance 0 ;# Disable copy avoidance because it affects memory usage + + # Create a simple idle test client + variable tc [redis_client] + $tc client setname test_client + + # make sure the client is idle for 1 seconds to make it shrink the reply buffer + wait_for_condition 10 100 { + [get_reply_buffer_size test_client] >= 1024 && [get_reply_buffer_size test_client] < 2046 + } else { + set rbs [get_reply_buffer_size test_client] + fail "reply buffer of idle client is $rbs after 1 seconds" + } + + r set bigval [string repeat x 32768] + + # In order to reduce test time we can set the peak reset time very low + r debug replybuffer peak-reset-time never + + wait_for_condition 10 100 { + [$tc get bigval ; get_reply_buffer_size test_client] >= 16384 && [get_reply_buffer_size test_client] < 32768 + } else { + set rbs [get_reply_buffer_size test_client] + fail "reply buffer of busy client is $rbs after 1 seconds" + } + + # Restore the peak reset time to default + r debug replybuffer peak-reset-time reset + + $tc close + } {0} {needs:debug} +} +
\ No newline at end of file |