diff options
Diffstat (limited to 'tests/support/server.tcl')
| -rw-r--r-- | tests/support/server.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/support/server.tcl b/tests/support/server.tcl index a23224bd7..4c596290d 100644 --- a/tests/support/server.tcl +++ b/tests/support/server.tcl @@ -207,6 +207,12 @@ proc tags_acceptable {tags err_return} { } } + # some units mess with the client output buffer so we can't really use the req-res logging mechanism. + if {$::log_req_res && [lsearch $tags "logreqres:skip"] >= 0} { + set err "Not supported when running in log-req-res mode" + return 0 + } + if {$::external && [lsearch $tags "external:skip"] >= 0} { set err "Not supported on external server" return 0 @@ -511,6 +517,14 @@ proc start_server {options {code undefined}} { dict unset config $directive } + if {$::log_req_res} { + dict set config "req-res-logfile" "stdout.reqres" + } + + if {$::force_resp3} { + dict set config "client-default-resp" "3" + } + # write new configuration to temporary file set config_file [tmpfile redis.conf] create_server_config_file $config_file $config $config_lines |