diff options
author | antirez <antirez@gmail.com> | 2012-01-06 17:28:40 +0100 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2012-01-06 17:28:40 +0100 |
commit | 414c3deac1573ae54325ca6ab629446205774d62 (patch) | |
tree | 4dfc118e024e859e45c5ed1618f4c73e79415312 /tests/helpers/gen_write_load.tcl | |
parent | 06f8a473fca79730e519c89571b1a7b227519d62 (diff) | |
download | redis-414c3deac1573ae54325ca6ab629446205774d62.tar.gz |
Regression test for the main problem causing issue #141. Minor changes/fixes/additions to the test suite itself needed to write the test.
Diffstat (limited to 'tests/helpers/gen_write_load.tcl')
-rw-r--r-- | tests/helpers/gen_write_load.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/helpers/gen_write_load.tcl b/tests/helpers/gen_write_load.tcl new file mode 100644 index 000000000..6d1a34516 --- /dev/null +++ b/tests/helpers/gen_write_load.tcl @@ -0,0 +1,15 @@ +source tests/support/redis.tcl + +proc gen_write_load {host port seconds} { + set start_time [clock seconds] + set r [redis $host $port 1] + $r select 9 + while 1 { + $r set [expr rand()] [expr rand()] + if {[clock seconds]-$start_time > $seconds} { + exit 0 + } + } +} + +gen_write_load [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] |