summaryrefslogtreecommitdiff
path: root/examples/redis-unstable/tests/unit/replybufsize.tcl
diff options
context:
space:
mode:
authorMitja Felicijan <mitja.felicijan@gmail.com>2026-01-21 22:52:54 +0100
committerMitja Felicijan <mitja.felicijan@gmail.com>2026-01-21 22:52:54 +0100
commitdcacc00e3750300617ba6e16eb346713f91a783a (patch)
tree38e2d4fb5ed9d119711d4295c6eda4b014af73fd /examples/redis-unstable/tests/unit/replybufsize.tcl
parent58dac10aeb8f5a041c46bddbeaf4c7966a99b998 (diff)
downloadcrep-dcacc00e3750300617ba6e16eb346713f91a783a.tar.gz
Remove testing data
Diffstat (limited to 'examples/redis-unstable/tests/unit/replybufsize.tcl')
-rw-r--r--examples/redis-unstable/tests/unit/replybufsize.tcl48
1 files changed, 0 insertions, 48 deletions
diff --git a/examples/redis-unstable/tests/unit/replybufsize.tcl b/examples/redis-unstable/tests/unit/replybufsize.tcl
deleted file mode 100644
index 302417c..0000000
--- a/examples/redis-unstable/tests/unit/replybufsize.tcl
+++ /dev/null
@@ -1,48 +0,0 @@
-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