From 47bebf15fa2b88e992253fabd879a43f4fb12c8f Mon Sep 17 00:00:00 2001 From: Pieter Noordhuis Date: Fri, 14 May 2010 17:42:07 +0200 Subject: [PATCH] start servers on different ports to prevent conflicts --- test/support/server.tcl | 3 +++ test/test_helper.tcl | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/test/support/server.tcl b/test/support/server.tcl index cd23f7c9..670cc4f2 100644 --- 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 7dce23c4..c58b95a2 100644 --- 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 { -- 2.45.2