2012-03-30 10:26:07 +02:00
|
|
|
source tests/support/redis.tcl
|
|
|
|
source tests/support/util.tcl
|
|
|
|
|
2019-09-12 10:56:54 +03:00
|
|
|
set ::tlsdir "tests/tls"
|
|
|
|
|
|
|
|
proc bg_complex_data {host port db ops tls} {
|
|
|
|
set r [redis $host $port 0 $tls]
|
2012-03-30 10:26:07 +02:00
|
|
|
$r select $db
|
|
|
|
createComplexDataset $r $ops
|
|
|
|
}
|
|
|
|
|
2019-09-12 10:56:54 +03:00
|
|
|
bg_complex_data [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] [lindex $argv 3] [lindex $argv 4]
|