/
githubmirror
/
redis
Обзор
Документация
Войти
/
githubmirror
/
redis
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
unstable
tests/support/cli.tcl
36 строк
1 KB
Yossi Gottlieb
Improve bind and protected-mode config handling. (#9034)
22 июн 2021, 12:50
Не верифицирован
22 июн 2021, 12:50
07b0d14
Код
Авторство
О чём код?
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 }