diff options
| author | Johan Bergström <bugs@bergstroem.nu> | 2013-01-24 09:37:18 +1100 |
|---|---|---|
| committer | Johan Bergström <bugs@bergstroem.nu> | 2013-01-24 09:37:18 +1100 |
| commit | 1154283577e94eb487df725196e17847ae684497 (patch) | |
| tree | ffc34f7a4e21eddd73bdaaa0fdcc4ffe799bcfb2 /tests/test_helper.tcl | |
| parent | acb046773d5fe08f4c457c25e8a3eb71bb398d08 (diff) | |
| download | redis-1154283577e94eb487df725196e17847ae684497.tar.gz | |
Use `info nameofexectuable` to find current executable
Diffstat (limited to 'tests/test_helper.tcl')
| -rw-r--r-- | tests/test_helper.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl index 701bbf3d6..62b08bed3 100644 --- a/tests/test_helper.tcl +++ b/tests/test_helper.tcl @@ -178,6 +178,7 @@ proc find_available_port start { proc test_server_main {} { cleanup + set tclsh [info nameofexecutable] # Open a listening socket, trying different ports in order to find a # non busy one. set port [find_available_port 11111] @@ -191,7 +192,7 @@ proc test_server_main {} { set start_port [expr {$::port+100}] for {set j 0} {$j < $::numclients} {incr j} { set start_port [find_available_port $start_port] - set p [exec tclsh8.5 [info script] {*}$::argv \ + set p [exec $tclsh [info script] {*}$::argv \ --client $port --port $start_port &] lappend ::clients_pids $p incr start_port 10 |