start servers on different ports to prevent conflicts

diff --git a/test/support/server.tcl b/test/support/server.tcl
index cd23f7c9cc280baff40457bdd2878f96dde2494a..670cc4f21e18a32deee9ef95e244a59c2bf3967b 100644 (file)
--- a/test/support/server.tcl
+++ b/test/support/server.tcl
@@ -22,6 +22,9 @@ proc start_server {filename overrides {code undefined}} {
     # use a different directory every time a server is started
     dict set config dir [tmpdir server]
     
+    # start every server on a different port
+    dict set config port [incr ::port]
+
     # apply overrides from arguments
     foreach override $overrides {
         set directive [lrange $override 0 0]

diff --git a/test/test_helper.tcl b/test/test_helper.tcl
index 7dce23c48fd6a71b7c2c37d08ec461087fb55d38..c58b95a2d638829dcbf965db2a628aca98de88a7 100644 (file)
--- a/test/test_helper.tcl
+++ b/test/test_helper.tcl
@@ -10,7 +10,7 @@ source test/support/test.tcl
 source test/support/util.tcl
 
 set ::host 127.0.0.1
-set ::port 6379
+set ::port 16379
 set ::traceleaks 0
 
 proc execute_tests name {