Commit 47bebf15 authored by Pieter Noordhuis's avatar Pieter Noordhuis
Browse files

start servers on different ports to prevent conflicts

parent 35453d99
...@@ -22,6 +22,9 @@ proc start_server {filename overrides {code undefined}} { ...@@ -22,6 +22,9 @@ proc start_server {filename overrides {code undefined}} {
# use a different directory every time a server is started # use a different directory every time a server is started
dict set config dir [tmpdir server] dict set config dir [tmpdir server]
# start every server on a different port
dict set config port [incr ::port]
# apply overrides from arguments # apply overrides from arguments
foreach override $overrides { foreach override $overrides {
set directive [lrange $override 0 0] set directive [lrange $override 0 0]
......
...@@ -10,7 +10,7 @@ source test/support/test.tcl ...@@ -10,7 +10,7 @@ source test/support/test.tcl
source test/support/util.tcl source test/support/util.tcl
set ::host 127.0.0.1 set ::host 127.0.0.1
set ::port 6379 set ::port 16379
set ::traceleaks 0 set ::traceleaks 0
proc execute_tests name { proc execute_tests name {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment