19 lines
434 B
Tcl
19 lines
434 B
Tcl
|
source tests/support/keydb.tcl
|
||
|
|
|
||
|
|
|
||
|
|
set ::tlsdir "tests/tls"
|
||
|
|
|
||
|
|
proc gen_climbing_load {host port db ops tls} {
|
||
|
|
set start_time [clock seconds]
|
||
|
|
set r [redis $host $port 1 $tls]
|
||
|
|
$r client setname LOAD_HANDLER
|
||
|
|
$r select $db
|
||
|
|
set x 0
|
||
|
|
while {$x < $ops} {
|
||
|
|
incr x
|
||
|
|
$r set [expr $x] [expr rand()]
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
gen_climbing_load [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] [lindex $argv 3] [lindex $argv 4]
|