projects / redis.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 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] |