upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-03-14 06:32:14 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

[v9_9] clean up reporting of R:FAIL so it can't spuriously appear mid-test

Browse source 
(cherry picked from commit 7960fc596b)
This commit is contained in:
Evan Hunt 2016-11-01 13:47:33 -07:00
parent 1b8d070f9a
commit a9b5a3fbf9
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bin/tests/system/run.sh
View file

@ -89,7 +89,7 @@ then
fi
# Start name servers running
$PERL start.pl $test || { echo "E:$test:`date`"; exit 1; }
$PERL start.pl $test || { echo "R:FAIL"; echo "E:$test:`date`"; exit 1; }
# Run the tests
( cd $test ; $SHELL tests.sh )

8
bin/tests/system/start.pl
View file

@ -131,7 +131,7 @@ sub check_ports {
if (++$tries > 4) {
print "$0: could not bind to server addresses, still running?\n";
print "I:server sockets not available\n";
print "R:FAIL\n";
print "I:failed\n";
system("$PERL $topdir/stop.pl $testdir"); # Is this the correct behavior?
exit 1;
}
@ -247,7 +247,7 @@ sub start_server {
$pid_file = "ans.pid";
} else {
print "I:Unknown server type $server\n";
print "R:FAIL\n";
print "I:failed\n";
system "$PERL $topdir/stop.pl $testdir";
exit 1;
}
@ -274,7 +274,7 @@ sub start_server {
while (!-s $pid_file) {
if (++$tries > 140) {
print "I:Couldn't start server $server (pid=$child)\n";
print "R:FAIL\n";
print "I:failed\n";
system "kill -9 $child" if ("$child" ne "");
system "$PERL $topdir/stop.pl $testdir";
exit 1;
@ -314,7 +314,7 @@ sub verify_server {
if (++$tries >= 30) {
print `grep ";" dig.out > /dev/null`;
print "I:no response from $server\n";
print "R:FAIL\n";
print "I:failed\n";
system("$PERL $topdir/stop.pl $testdir");
exit 1;
}