root
/
redis
mirror of https://github.com/redis/redis.git
1
0
Fork 0
Code Issues Actions Packages Projects Releases Wiki Activity

Use `info nameofexectuable` to find current executable

This commit is contained in:
Johan Bergström 2013-01-24 09:37:18 +11:00
parent acb046773d
commit 1154283577
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/integration/replication-4.tcl
View File

@ -1,5 +1,6 @@
proc start_bg_complex_data {host port db ops} { proc start_bg_complex_data {host port db ops} {
exec tclsh8.5 tests/helpers/bg_complex_data.tcl $host $port $db $ops & set tclsh [info nameofexecutable]
exec $tclsh tests/helpers/bg_complex_data.tcl $host $port $db $ops &
} }
proc stop_bg_complex_data {handle} { proc stop_bg_complex_data {handle} {

3
tests/integration/replication.tcl
View File

@ -78,7 +78,8 @@ start_server {tags {"repl"}} {
} }
proc start_write_load {host port seconds} { proc start_write_load {host port seconds} {
exec tclsh8.5 tests/helpers/gen_write_load.tcl $host $port $seconds & set tclsh [info nameofexecutable]
exec $tclsh tests/helpers/gen_write_load.tcl $host $port $seconds &
} }
proc stop_write_load {handle} { proc stop_write_load {handle} {

3
tests/test_helper.tcl
View File

@ -178,6 +178,7 @@ proc find_available_port start {
proc test_server_main {} { proc test_server_main {} {
cleanup cleanup
set tclsh [info nameofexecutable]
# Open a listening socket, trying different ports in order to find a # Open a listening socket, trying different ports in order to find a
# non busy one. # non busy one.
set port [find_available_port 11111] set port [find_available_port 11111]
@ -191,7 +192,7 @@ proc test_server_main {} {
set start_port [expr {$::port+100}] set start_port [expr {$::port+100}]
for {set j 0} {$j < $::numclients} {incr j} { for {set j 0} {$j < $::numclients} {incr j} {
set start_port [find_available_port $start_port] 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 &] --client $port --port $start_port &]
lappend ::clients_pids $p lappend ::clients_pids $p
incr start_port 10 incr start_port 10