1 files changed, 0 insertions, 36 deletions
diff --git a/examples/redis-unstable/tests/support/cli.tcl b/examples/redis-unstable/tests/support/cli.tcl
deleted file mode 100644
index a080823..0000000
--- a/examples/redis-unstable/tests/support/cli.tcl
+++ /dev/null
@@ -1,36 +0,0 @@
-proc rediscli_tls_config {testsdir} {
-    set tlsdir [file join $testsdir tls]
-    set cert [file join $tlsdir client.crt]
-    set key [file join $tlsdir client.key]
-    set cacert [file join $tlsdir ca.crt]
-
-    if {$::tls} {
-        return [list --tls --cert $cert --key $key --cacert $cacert]
-    } else {
-        return {}
-    }
-}
-
-# Returns command line for executing redis-cli
-proc rediscli {host port {opts {}}} {
-    set cmd [list src/redis-cli -h $host -p $port]
-    lappend cmd {*}[rediscli_tls_config "tests"]
-    lappend cmd {*}$opts
-    return $cmd
-}
-
-# Returns command line for executing redis-cli with a unix socket address
-proc rediscli_unixsocket {unixsocket {opts {}}} {
-    return [list src/redis-cli -s $unixsocket {*}$opts]
-}
-
-# Run redis-cli with specified args on the server of specified level.
-# Returns output broken down into individual lines.
-proc rediscli_exec {level args} {
-    set cmd [rediscli_unixsocket [srv $level unixsocket] $args]
-    set fd [open "|$cmd" "r"]
-    set ret [lrange [split [read $fd] "\n"] 0 end-1]
-    close $fd
-
-    return $ret
-}