diff options
Diffstat (limited to '')
-rw-r--r-- | web/server/h2o/libh2o/misc/p5-Server-Starter/t/08-wait3.t | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/08-wait3.t b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/08-wait3.t deleted file mode 100644 index e13b6e8b3..000000000 --- a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/08-wait3.t +++ /dev/null @@ -1,39 +0,0 @@ -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; |