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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#!./perl -w
use strict;
use Test::More;
use Config;
plan(skip_all => "POSIX is unavailable")
unless $Config{extensions} =~ /\bPOSIX\b/;
plan(skip_all => "sigemptyset is unavailable on $^O")
if $^O eq 'MSWin32';
require POSIX;
POSIX->import();
my @signo;
my ($min, $max) = (~0, -1);
sub expected_signals {
my $sigset = shift;
my $desc = shift;
my %expected;
++$expected{$_} foreach @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
for my $sig ($min..$max) {
if ($expected{$sig}) {
cmp_ok($sigset->ismember($sig), '==', 1,
"$desc - sig $sig is a member");
} else {
cmp_ok($sigset->ismember($sig), '==', 0,
"$desc - sig $sig is not a member");
}
}
}
foreach (@POSIX::EXPORT) {
next unless /^SIG[A-Z0-9]+$/;
my $val = eval "POSIX::$_";
next unless defined $val;
$min = $val if $min > $val;
$max = $val if $max < $val;
push @signo, $val;
}
# Sanity check that we found something:
cmp_ok(scalar @signo, '>=', 6,
'found at least 6 signals (6 are named in the ANSI C spec)');
my $sigset = POSIX::SigSet->new();
isa_ok($sigset, 'POSIX::SigSet', 'checking the type of the object');
expected_signals($sigset, 'new object');
is($sigset->fillset(), '0 but true', 'fillset');
# because on some systems, not all integers are valid signals...
# so the only thing we can really be confident about is that all the signals
# with names are going to be present:
foreach (@signo) {
cmp_ok($sigset->ismember($_), '==', 1, "after fillset sig $_ is a member");
}
is($sigset->emptyset(), '0 but true', 'empyset');
expected_signals($sigset, 'after emptyset');
is($sigset->addset($signo[1]), '0 but true', 'addset');
expected_signals($sigset, 'after addset', $signo[1]);
is($sigset->addset($signo[2]), '0 but true', 'addset');
expected_signals($sigset, 'after addset', $signo[1], $signo[2]);
is($sigset->addset($signo[4]), '0 but true', 'addset');
expected_signals($sigset, 'after addset', $signo[1], $signo[2], $signo[4]);
is($sigset->addset($signo[2]), '0 but true', 'addset');
expected_signals($sigset, 'after addset', $signo[1], $signo[2], $signo[4]);
is($sigset->delset($signo[4]), '0 but true', 'delset');
expected_signals($sigset, 'after addset', $signo[1], $signo[2]);
is($sigset->addset($signo[0]), '0 but true', 'addset');
expected_signals($sigset, 'after addset', $signo[0], $signo[1], $signo[2]);
is($sigset->delset($signo[4]), '0 but true', 'delset');
expected_signals($sigset, 'after delset', $signo[0], $signo[1], $signo[2]);
is($sigset->delset($signo[1]), '0 but true', 'delset');
expected_signals($sigset, 'after delset', $signo[0], $signo[2]);
is($sigset->delset($signo[0]), '0 but true', 'delset');
expected_signals($sigset, 'after addset', $signo[2]);
is($sigset->delset($signo[2]), '0 but true', 'delset');
expected_signals($sigset, 'empty again');
foreach ([$signo[0]],
[$signo[2]],
[$signo[3]],
[@signo[2,3,6]],
) {
$sigset = POSIX::SigSet->new(@$_);
isa_ok($sigset, 'POSIX::SigSet', 'checking the type of the object');
local $" = ', ';
expected_signals($sigset, "new(@$_)", @$_);
}
SKIP:
{
# CID 244386
# linux and freebsd do validate for positive and very large signal numbers
# darwin uses a macro that simply ignores large signals and shifts by
# a negative number for negative signals, always succeeding
#
# since the idea is to validate our code rather than the implementation
# of sigaddset, just test the platforms we know can fail
skip "Not all systems validate the signal number", 2
unless $^O =~ /^(linux|freebsd)$/;
my $badsig = -1;
note "badsig $badsig";
ok(!eval{ POSIX::SigSet->new($badsig); 1 },
"POSIX::SigSet->new should throw on large signal number");
like($@."", qr/POSIX::Sigset->new: failed to add signal $badsig/,
"check message");
}
done_testing();
|
