gvsafronov/futriix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bug of tcl test using external server

Browse Source
This commit is contained in:
bodong.ybd 2020-03-11 20:55:51 +08:00
parent bd28dbee0e
commit 336458d4b5
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/support/server.tcl
View File

@ -159,9 +159,12 @@ proc start_server {options {code undefined}} {
if {$::external} { if {$::external} {
if {[llength $::servers] == 0} { if {[llength $::servers] == 0} {
set srv {} set srv {}
# In test_server_main(tests/test_helper.tcl:215~218), increase the value of start_port
# and assign it to ::port through the `--port` option, so we need to reduce it.
set baseport [expr {$::port-100}]
dict set srv "host" $::host dict set srv "host" $::host
dict set srv "port" $::port dict set srv "port" $baseport
set client [redis $::host $::port 0 $::tls] set client [redis $::host $baseport 0 $::tls]
dict set srv "client" $client dict set srv "client" $client
$client select 9 $client select 9

3
tests/test_helper.tcl
View File

@ -505,6 +505,9 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
} elseif {$opt eq {--host}} { } elseif {$opt eq {--host}} {
set ::external 1 set ::external 1
set ::host $arg set ::host $arg
# If we use an external server, we can only set numclients to 1,
# otherwise the port will be miscalculated.
set ::numclients 1
incr j incr j
} elseif {$opt eq {--port}} { } elseif {$opt eq {--port}} {
set ::port $arg set ::port $arg