X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/fab43727b43de73add99dfc3f25a69ac0777fd67..f166bb1d500dcecb14bff13312a4e7d2a76356c7:/tests/support/server.tcl

diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 8664b9a4..18728f91 100644
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -26,7 +26,7 @@ proc kill_server config {
         if {[incr wait 10] % 1000 == 0} {
             puts "Waiting for process $pid to exit..."
         }
-        exec kill $pid
+        catch {exec kill $pid}
         after 10
     }
 }
@@ -40,6 +40,7 @@ proc is_alive config {
     }
 }
 
+set ::global_overrides {}
 proc start_server {filename overrides {code undefined}} {
     set data [split [exec cat "tests/assets/$filename"] "\n"]
     set config {}
@@ -58,8 +59,8 @@ proc start_server {filename overrides {code undefined}} {
     # start every server on a different port
     dict set config port [incr ::port]
 
-    # apply overrides from arguments
-    foreach override $overrides {
+    # apply overrides from global space and arguments
+    foreach override [concat $::global_overrides $overrides] {
         set directive [lrange $override 0 0]
         set arguments [lrange $override 1 end]
         dict set config $directive $arguments