mirror of https://github.com/F-Stack/f-stack.git
16 lines
372 B
Tcl
16 lines
372 B
Tcl
|
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]
|