blob: e13b6e8b3e81eaf5ee35abdcc99a7e15cad1f54c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
use strict;
use warnings;
use Test::More;
use Server::Starter;
my $gotsig = 0;
Server::Starter::_set_sighandler('USR1', sub {
warn "got SIGUSR1";
++$gotsig;
});
my $pid = fork;
die "fork failed:$!"
unless defined $pid;
if ($pid == 0) {
# child process, send signal twice
sleep 1;
kill 'USR1', getppid;
sleep 1;
kill 'USR1', getppid;
sleep 10;
die "child process not killed";
}
my @r = Server::Starter::_wait3(0);
ok ! @r, "nonblocking wait returns without pid";
for (my $i = 1; $i <= 2; ++$i) {
@r = Server::Starter::_wait3(1);
is $gotsig, $i, "woke up after signal (count: $i)";
ok ! @r, "child is alive";
}
kill 'KILL', $pid;
@r = Server::Starter::_wait3(1);
is $gotsig, 2, "did not receive signal";
is $r[0], $pid, "child died";
done_testing;
|