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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 10;
use IO::Epoll;
use POSIX qw(
sigprocmask SIG_BLOCK
SIGHUP SIGTERM SIGUSR1 SIGUSR2
EINTR
);
my $epoll = IO::Epoll->new();
ok( !$epoll->sigmask_ismember( SIGHUP ), 'SIGHUP not in initial set' );
$epoll->sigmask_add( SIGHUP );
ok( $epoll->sigmask_ismember( SIGHUP ), 'SIGHUP now in set' );
$epoll->sigmask_del( SIGHUP );
ok( !$epoll->sigmask_ismember( SIGHUP ), 'SIGHUP no longer in set' );
my $SIGHUP_count = 0;
$SIG{HUP} = sub { $SIGHUP_count++ };
kill SIGHUP, $$;
is( $SIGHUP_count, 1, 'Caught SIGHUP before sigprocmask' );
sigprocmask( SIG_BLOCK, POSIX::SigSet->new( SIGHUP ) );
kill SIGHUP, $$;
is( $SIGHUP_count, 1, 'Not caught SIGHUP after sigprocmask' );
my $ret = $epoll->poll( 0.1 );
my $dollarbang = $!+0;
is( $ret, -1, 'poll() returns undef' );
is( $dollarbang, EINTR, 'poll() failed with EINTR' );
is( $SIGHUP_count, 2, 'Caught SIGHUP after poll' );
sigprocmask( SIG_BLOCK, POSIX::SigSet->new( SIGTERM ) );
$epoll->sigmask_add( SIGTERM );
my $SIGTERM_count = 0;
$SIG{TERM} = sub { $SIGTERM_count++ };
kill SIGTERM, $$;
$ret = $epoll->poll( 0.1 );
is( $ret, 0, 'poll() returns 0' );
is( $SIGTERM_count, 0, 'Not caught SIGTERM after poll()' );
|
