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
40
41
|
# perl -T
use strict;
use warnings;
use Test::More 0.89;
use Linux::FD 'signalfd';
use IO::Select;
use POSIX qw/sigprocmask SIGUSR1 SIG_SETMASK/;
my $selector = IO::Select->new;
alarm 2;
my $sigset = POSIX::SigSet->new();
$sigset->addset(SIGUSR1);
sigprocmask(SIG_SETMASK, $sigset) or bailout('Can\'t set signal-mask');
my $fd = signalfd($sigset, 'non-blocking');
$selector->add($fd);
ok !$selector->can_read(0), 'Can\'t read an empty signalfd';
ok !defined $fd->receive, 'Can\'t read an empty signalfd directly';
ok kill(SIGUSR1, $$), 'Not killed by sigusr1';
ok $selector->can_read(0), 'Can read signalfd after signal delivery';
my $sig_info = $fd->receive;
is $sig_info->{signo}, SIGUSR1, 'Received SIGUSR1';
ok !$selector->can_read(0), 'Can\'t read signalfd after signal reception';
ok eval { signalfd(SIGUSR1) }, 'signalfd accepts signal number';
ok eval { signalfd('USR1') }, 'signalfd accepts signal name';
done_testing;
|
