redis/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]
Regression test for issue 417 (memory leak when replicating to DB with id >= 10) 2012-03-30 10:26:07 +02:00			`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]`