diff options
Diffstat (limited to 'examples/redis-unstable/tests/helpers/bg_block_op.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/helpers/bg_block_op.tcl | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/examples/redis-unstable/tests/helpers/bg_block_op.tcl b/examples/redis-unstable/tests/helpers/bg_block_op.tcl deleted file mode 100644 index dc4e1a9..0000000 --- a/examples/redis-unstable/tests/helpers/bg_block_op.tcl +++ /dev/null @@ -1,55 +0,0 @@ -source tests/support/redis.tcl -source tests/support/util.tcl - -set ::tlsdir "tests/tls" - -# This function sometimes writes sometimes blocking-reads from lists/sorted -# sets. There are multiple processes like this executing at the same time -# so that we have some chance to trap some corner condition if there is -# a regression. For this to happen it is important that we narrow the key -# space to just a few elements, and balance the operations so that it is -# unlikely that lists and zsets just get more data without ever causing -# blocking. -proc bg_block_op {host port db ops tls} { - set r [redis $host $port 0 $tls] - $r client setname LOAD_HANDLER - $r select $db - - for {set j 0} {$j < $ops} {incr j} { - - # List side - set k list_[randomInt 10] - set k2 list_[randomInt 10] - set v [randomValue] - - randpath { - randpath { - $r rpush $k $v - } { - $r lpush $k $v - } - } { - $r blpop $k 2 - } { - $r blpop $k $k2 2 - } - - # Zset side - set k zset_[randomInt 10] - set k2 zset_[randomInt 10] - set v1 [randomValue] - set v2 [randomValue] - - randpath { - $r zadd $k [randomInt 10000] $v - } { - $r zadd $k [randomInt 10000] $v [randomInt 10000] $v2 - } { - $r bzpopmin $k 2 - } { - $r bzpopmax $k 2 - } - } -} - -bg_block_op [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] [lindex $argv 3] [lindex $argv 4] |