more valgrind (and other archs) friendly testing of floating number related features.

[redis.git] / tests / support / server.tcl

diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 3fa1725f3cc2371431b8878923cb9dc114cf6388..c2d7132d23105325ba9d85285b31fd08cc01118a 100644 (file)
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -154,7 +154,8 @@ proc start_server {options {code undefined}} {
     dict set config dir [tmpdir server]
     
     # start every server on a different port
-    dict set config port [incr ::port]
+    set ::port [find_available_port [expr {$::port+1}]]
+    dict set config port $::port
 
     # apply overrides from global space and arguments
     foreach {directive arguments} [concat $::global_overrides $overrides] {