]> git.saurik.com Git - redis.git/blob - tests/helpers/gen_write_load.tcl
New commands: BITOP and BITCOUNT.
[redis.git] / tests / helpers / gen_write_load.tcl
1 source tests/support/redis.tcl
2
3 proc gen_write_load {host port seconds} {
4 set start_time [clock seconds]
5 set r [redis $host $port 1]
6 $r select 9
7 while 1 {
8 $r set [expr rand()] [expr rand()]
9 if {[clock seconds]-$start_time > $seconds} {
10 exit 0
11 }
12 }
13 }
14
15 gen_write_load [lindex $argv 0] [lindex $argv 1] [lindex $argv 2]