summaryrefslogtreecommitdiff
path: root/tests/instances.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/instances.tcl')
-rw-r--r--tests/instances.tcl10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/instances.tcl b/tests/instances.tcl
index 2a3336b78..52e61418e 100644
--- a/tests/instances.tcl
+++ b/tests/instances.tcl
@@ -677,9 +677,19 @@ proc redis_deferring_client {type id} {
return $client
}
+proc redis_deferring_client_by_addr {host port} {
+ set client [redis $host $port 1 $::tls]
+ return $client
+}
+
proc redis_client {type id} {
set port [get_instance_attrib $type $id port]
set host [get_instance_attrib $type $id host]
set client [redis $host $port 0 $::tls]
return $client
}
+
+proc redis_client_by_addr {host port} {
+ set client [redis $host $port 0 $::tls]
+ return $client
+} \ No newline at end of file