Fix testsuite on OpenBSD

OpenBSD perl forks for glob().
Therefore attach SIGCHLD handler as late as possible.
This commit is contained in:
Christopher Zimmermann 2016-06-11 14:47:17 +02:00
parent 7e2483edf7
commit fa12f67870
2 changed files with 14 additions and 9 deletions

View File

@ -69,15 +69,6 @@ sub start_xserver {
my @displays = ();
my @childpids = ();
$SIG{CHLD} = sub {
my $child = waitpid -1, POSIX::WNOHANG;
@pids = grep { $_ != $child } @pids;
return unless @pids == 0;
print STDERR "All X server processes died.\n";
print STDERR "Use ./complete-run.pl --parallel 1 --keep-xserver-output\n";
exit 1;
};
# Yeah, I know its non-standard, but Perls POSIX module doesnt have
# _SC_NPROCESSORS_CONF.
my $num_cores;
@ -101,6 +92,15 @@ sub start_xserver {
say "Starting $parallel Xephyr instances, starting at :$displaynum...";
$SIG{CHLD} = sub {
my $child = waitpid -1, POSIX::WNOHANG;
@pids = grep { $_ != $child } @pids;
return unless @pids == 0;
print STDERR "All X server processes died.\n";
print STDERR "Use ./complete-run.pl --parallel 1 --keep-xserver-output\n";
exit 1;
};
my @sockets_waiting;
for (1 .. $parallel) {
my $socket = fork_xserver($keep_xserver_output, $displaynum,

View File

@ -20,6 +20,9 @@ use i3test;
use POSIX qw(mkfifo);
use File::Temp qw(:POSIX tempfile);
SKIP: {
skip "Procfs not available on $^O", 1 if $^O eq 'openbsd';
my $i3 = i3(get_socket_path());
my $tmp = tmpnam();
@ -59,4 +62,6 @@ for my $fd (keys %fds) {
is(scalar keys %fds, 0, 'No file descriptors leaked');
}
done_testing;