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