diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-01 16:26:31 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-01 17:09:26 -0400 |
| commit | 0f1abed3702060886f7934560cf68b0d693cb58a (patch) | |
| tree | 30371badc0efc018a5160e0deb8906875e0ee7ef | |
| parent | d11832573a44ef0fa2ab36e6878d975388f9ab92 (diff) | |
| download | perl-0f1abed3702060886f7934560cf68b0d693cb58a.tar.gz | |
HP-UX: more robust (10.X) and verbose test skippage.
| -rw-r--r-- | t/op/infnan.t | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/t/op/infnan.t b/t/op/infnan.t index 470b6d4af8..a7ef27beb1 100644 --- a/t/op/infnan.t +++ b/t/op/infnan.t @@ -101,8 +101,9 @@ SKIP: { is(1/$NInf, 0, "one per -Inf is zero"); SKIP: { - if ("$^O $Config{osvers}" eq "hpux 10.20") { - skip "pow doesn't generate Inf", 1; + my $here = "$^O $Config{osvers}"; + if ($here =~ /^hpux 10/) { + skip "$here: pow doesn't generate Inf", 1; } is(9**9**9, $PInf, "9**9**9 is Inf"); } @@ -160,8 +161,9 @@ SKIP: { is($NaN * 2, $NaN, "NaN times two is NaN"); SKIP: { - if ("$^O $Config{osvers}" eq "hpux 10.20") { - skip "pow doesn't generate Inf, so sin(Inf) won't happen", 1; + my $here = "$^O $Config{osvers}"; + if ($here =~ /^hpux 10/) { + skip "$here: pow doesn't generate Inf, so sin(Inf) won't happen", 1; } is(sin(9**9**9), $NaN, "sin(9**9**9) is NaN"); } |