diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-27 16:28:58 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-27 16:28:58 +0000 |
| commit | ba822478ced3e5aa2061138c165c9599de668198 (patch) | |
| tree | d58d0622f835c985f14379281b46b20c459bd221 | |
| parent | 28a5cf3b760f8b6322a0839e3b3e060e7a6f23ea (diff) | |
| download | perl-ba822478ced3e5aa2061138c165c9599de668198.tar.gz | |
Some signals are more real than others
Also added comment about why the tests are there
p4raw-id: //depot/perl@25230
| -rw-r--r-- | ext/POSIX/t/sigaction.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t index aa079730f7..e8a701899e 100644 --- a/ext/POSIX/t/sigaction.t +++ b/ext/POSIX/t/sigaction.t @@ -180,7 +180,10 @@ ok($ok, "safe signal delivery must work"); SKIP: { eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX); SIGRTMIN() + SIGRTMAX()'; - skip("no SIGRT signals", 4) if $@ || SIGRTMIN() < 0 || SIGRTMAX() < 0; + $@ # POSIX did not exort + || SIGRTMIN() < 0 || SIGRTMAX() < 0 # HP-UX 10.20 exports both as -1 + || SIGRTMIN() > $Config{sig_count} # AIX 4.3.3 exports bogus 888 and 999 + and skip("no SIGRT signals", 4); ok(SIGRTMAX() > SIGRTMIN(), "SIGRTMAX > SIGRTMIN"); is(scalar %SIGRT, SIGRTMAX() - SIGRTMIN() + 1, "scalar SIGRT"); my $sigrtmin; |