ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

Merge branch '944-make-stop.pl-wait-for-lock-file-cleanup' into 'master'

Browse Source 
Make stop.pl wait for lock file cleanup

Closes #944

See merge request isc-projects/bind9!1704
This commit is contained in:
Michał Kępień
2019-03-19 06:18:35 -04:00
parent bd55366bef c787a539d2
commit 85ea0edf2f
2 changed files with 23 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
bin/tests/system/start.pl
View File

@@ -204,6 +204,7 @@ sub start_server {
print "I:$test:Couldn't start server $command (pid=$child)\n";
print "I:$test:failed\n";
system "kill -9 $child" if ("$child" ne "");
chdir "$testdir";
system "$PERL $topdir/stop.pl $test";
exit 1;
}

25
bin/tests/system/stop.pl
View File

@@ -127,9 +127,19 @@ exit($errors);
# Subroutines
# Return the full path to a given server's lock file.
sub server_lock_file {
my ( $server ) = @_;
return $testdir . "/" . $server . "/named.lock" if ($server =~ /^ns/);
return if ($server =~ /^ans/);
die "Unknown server type $server\n";
}
# Return the full path to a given server's PID file.
sub server_pid_file {
my($server) = @_;
my ( $server ) = @_;
return $testdir . "/" . $server . "/named.pid" if ($server =~ /^ns/);
return $testdir . "/" . $server . "/ans.pid" if ($server =~ /^ans/);
@@ -228,7 +238,7 @@ sub stop_signal {
return;
}
sub clean_pid_file {
sub pid_file_exists {
my ( $server ) = @_;
my $pid_file = server_pid_file($server);
@@ -250,6 +260,15 @@ sub clean_pid_file {
return $server;
}
sub lock_file_exists {
my ( $server ) = @_;
my $lock_file = server_lock_file($server);
return unless defined($lock_file) && -f $lock_file;
return $server;
}
sub wait_for_servers {
my ( $timeout, @servers ) = @_;
@@ -257,7 +276,7 @@ sub wait_for_servers {
sleep 1 if (@servers > 0);
@servers =
grep { defined($_) }
map { clean_pid_file($_) } @servers;
map { pid_file_exists($_) || lock_file_exists($_) } @servers;
$timeout--;
}