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;