mirror of
http://github.com/valkey-io/valkey
synced 2024-11-22 18:54:58 +00:00
07b365b7d7
it seems that commit b087dd1db6
accidentially changed
gen_write_load to not use deferred client, which causes them to be slower and not
generate high load which they should, making some tests less effecitive
18 lines
424 B
Tcl
18 lines
424 B
Tcl
source tests/support/redis.tcl
|
|
|
|
set ::tlsdir "tests/tls"
|
|
|
|
proc gen_write_load {host port seconds tls} {
|
|
set start_time [clock seconds]
|
|
set r [redis $host $port 1 $tls]
|
|
$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] [lindex $argv 3]
|