Merge pull request #5090 from trevor211/test_helper_tcl

fix tests/test_helper.tcl with --wait-server option.
This commit is contained in:
Salvatore Sanfilippo 2018-07-02 17:51:04 +02:00 committed by GitHub
commit e4881cd083
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -475,7 +475,6 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
set ::dont_clean 1 set ::dont_clean 1
} elseif {$opt eq {--wait-server}} { } elseif {$opt eq {--wait-server}} {
set ::wait_server 1 set ::wait_server 1
incr j
} elseif {$opt eq {--timeout}} { } elseif {$opt eq {--timeout}} {
set ::timeout $arg set ::timeout $arg
incr j incr j