[redis.git] / tests / helpers / bg_complex_data.tcl

source tests/support/redis.tcl
source tests/support/util.tcl

proc bg_complex_data {host port db ops} {
    set r [redis $host $port]
    $r select $db
    createComplexDataset $r $ops
}

bg_complex_data [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] [lindex $argv 3]
Commit	Line	Data
22c9c407	1	source tests/support/redis.tcl
	2	source tests/support/util.tcl
	3
	4	proc bg_complex_data {host port db ops} {
	5	set r [redis $host $port]
	6	$r select $db
	7	createComplexDataset $r $ops
	8	}
	9
	10	bg_complex_data [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] [lindex $argv 3]