tests/helpers/bg_complex_data.tcl

   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]