This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Some signals are more real than others
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 27 Jul 2005 16:28:58 +0000 (16:28 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 27 Jul 2005 16:28:58 +0000 (16:28 +0000)
Also added comment about why the tests are there

p4raw-id: //depot/perl@25230

ext/POSIX/t/sigaction.t

index aa07973..e8a7018 100644 (file)
@@ -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;