diff options
author | Yang Tse <yangsita@gmail.com> | 2011-10-30 16:45:14 +0100 |
---|---|---|
committer | Yang Tse <yangsita@gmail.com> | 2011-10-30 16:45:14 +0100 |
commit | e2928e1555f8eaca440259c7280d2963b12c15bb (patch) | |
tree | 49b0f547ad1692841385e0319bd91661350ec280 | |
parent | f5bb37018647f6088398ca127235ce776eec9bbe (diff) |
runtests.pl: running server checks - commit 4464583a follow-up
Ensure verification takes place with no server commands file.
Ignore verbose setting for running server precheck.
Tweak unresponsive server message, to allow detection by haxx.se scripts.
-rwxr-xr-x | tests/runtests.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index cadf23163..54eb53951 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -1134,16 +1134,19 @@ sub verifyserver { # sub responsiveserver { my ($proto, $ipvnum, $idnum, $ip, $port) = @_; + my $prev_verbose = $verbose; + $verbose = 0; my $fun = $protofunc{$proto}; my $pid = &$fun($proto, $ipvnum, $idnum, $ip, $port); + $verbose = $prev_verbose; if($pid > 0) { return 1; # responsive } my $srvrname = servername_str($proto, $ipvnum, $idnum); - logmsg " FAILED running server precheck (unresponsive $srvrname server)\n"; + logmsg " server precheck FAILED (unresponsive $srvrname server)\n"; return 0; } @@ -2778,6 +2781,9 @@ sub singletest { delete $oldenv{$var}; } + # remove test server commands file before servers are started/verified + unlink($FTPDCMD) if(-f $FTPDCMD); + # timestamp required servers verification start $timesrvrini{$testnum} = Time::HiRes::time() if($timestats); @@ -3251,7 +3257,7 @@ sub singletest { } # remove the test server commands file after each test - unlink($FTPDCMD); + unlink($FTPDCMD) if(-f $FTPDCMD); # run the postcheck command my @postcheck= getpart("client", "postcheck"); |