3 use Test::More tests => 2;
5 use POSIX qw/SIGTERM SIGKILL EXIT_FAILURE EXIT_SUCCESS/;
11 die "$s: fork() failed : $!";
13 local $SIG{$s} = sub { exit EXIT_SUCCESS };
16 my $ret = EXIT_FAILURE;
18 local $SIG{ALRM} = sub { die };
31 ok($ret == EXIT_SUCCESS, $s);
34 trysig SIGUSR1, 'USR1';
35 trysig SIGUSR2, 'USR2';