mirror of https://github.com/F-Stack/f-stack.git
20 lines
517 B
Tcl
20 lines
517 B
Tcl
|
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 {}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
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
|
||
|
|
}
|