| 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] |