aboutsummaryrefslogtreecommitdiff
path: root/tests/runtests.pl
diff options
context:
space:
mode:
authorYang Tse <yangsita@gmail.com>2011-10-30 16:45:14 +0100
committerYang Tse <yangsita@gmail.com>2011-10-30 16:45:14 +0100
commite2928e1555f8eaca440259c7280d2963b12c15bb (patch)
tree49b0f547ad1692841385e0319bd91661350ec280 /tests/runtests.pl
parentf5bb37018647f6088398ca127235ce776eec9bbe (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.
Diffstat (limited to 'tests/runtests.pl')
-rwxr-xr-xtests/runtests.pl10
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");