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 ee39c8df9..51d3629a2 100644 --- a/tests/support/server.tcl +++ b/tests/support/server.tcl @@ -674,8 +674,12 @@ proc start_server {options {code undefined}} { } } -proc restart_server {level wait_ready rotate_logs {reconnect 1}} { +proc restart_server {level wait_ready rotate_logs {reconnect 1} {shutdown sigterm}} { set srv [lindex $::servers end+$level] + if {$shutdown ne {sigterm}} { + catch {[dict get $srv "client"] shutdown $shutdown} + } + # Kill server doesn't mind if the server is already dead kill_server $srv # Remove the default client from the server dict unset srv "client" |