mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-22 08:08:53 -05:00
20 lines
577 B
Tcl
20 lines
577 B
Tcl
# SPDX-FileCopyrightText: 2024 Redict Contributors
|
|
# SPDX-FileCopyrightText: 2024 Salvatore Sanfilippo <antirez at gmail dot com>
|
|
#
|
|
# SPDX-License-Identifier: BSD-3-Clause
|
|
# SPDX-License-Identifier: LGPL-3.0-only
|
|
|
|
source tests/support/redict.tcl
|
|
source tests/support/util.tcl
|
|
|
|
set ::tlsdir "tests/tls"
|
|
|
|
proc bg_complex_data {host port db ops tls} {
|
|
set r [redict $host $port 0 $tls]
|
|
$r client setname LOAD_HANDLER
|
|
$r select $db
|
|
createComplexDataset $r $ops
|
|
}
|
|
|
|
bg_complex_data [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] [lindex $argv 3] [lindex $argv 4]
|