We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent ad1af35 commit 7a44a34Copy full SHA for 7a44a34
1 file changed
tests/support/server.tcl
@@ -54,7 +54,6 @@ proc kill_server config {
54
55
# kill server and wait for the process to be totally exited
56
catch {exec kill $pid}
57
- set wait 0
58
while {[is_alive $config]} {
59
incr wait 10
60
@@ -292,9 +291,10 @@ proc start_server {options {code undefined}} {
292
291
293
while 1 {
294
# check that the server actually started and is ready for connections
295
- if {[catch {exec grep "going to start" $stderr}] == 0} {
296
- break
+ if {[exec grep "going to start" | wc -l < $stderr] > 0} {
+ break
297
}
+ puts "Fuck YYB"
298
after 10
299
300
0 commit comments