diff options
Diffstat (limited to 'tests/support/server.tcl')
| -rw-r--r-- | tests/support/server.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/support/server.tcl b/tests/support/server.tcl index d91d60730..4c63d7b3a 100644 --- a/tests/support/server.tcl +++ b/tests/support/server.tcl @@ -378,7 +378,11 @@ proc run_external_server_test {code overrides} { r config set $param $val } - lpop ::servers + set srv [lpop ::servers] + + if {[dict exists $srv "client"]} { + [dict get $srv "client"] close + } } proc start_server {options {code undefined}} { |