[redis.git] / tests / helpers / gen_write_load.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]
Commit	Line	Data
414c3dea	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]