bg_complex_data.tcl 326 B

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