34413e0862
Occurrences of "redis" in TCL test suites and helpers, such as TCL client used in tests, are replaced with "valkey". Occurrences of uppercase "Redis" are not changed in this PR. No files are renamed in this PR. --------- Signed-off-by: Shivshankar-Reddy <shiva.sheri.github@gmail.com>
19 lines
460 B
Tcl
19 lines
460 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 [valkey $host $port 1 $tls]
|
|
$r client setname LOAD_HANDLER
|
|
$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]
|