diff options
| author | Karl Williamson <khw@cpan.org> | 2020-06-21 11:50:34 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-07-17 22:04:08 -0600 |
| commit | 5a85ab1ab534052ceb7566c1663a89133dfd6628 (patch) | |
| tree | 1f397032381a4093c674cb83c28cfc32fa25fc95 /t/op/infnan.t | |
| parent | f2e44f083a90beb1268ada85b866abe79f209a17 (diff) | |
| download | perl-5a85ab1ab534052ceb7566c1663a89133dfd6628.tar.gz | |
op/infnan.t: Todo tests are now passing on EBCDIC
Diffstat (limited to 't/op/infnan.t')
| -rw-r--r-- | t/op/infnan.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/infnan.t b/t/op/infnan.t index 70c75f3a48..7a2de7d79c 100644 --- a/t/op/infnan.t +++ b/t/op/infnan.t @@ -243,7 +243,7 @@ TODO: { local $::TODO; my $here = "$^O $Config{osvers}"; $::TODO = "$here: pow (9**9**9) doesn't give Inf" - if $here =~ /^(?:hpux 10|os390)/; + if $here =~ /^(?:hpux 10)/; is(9**9**9, $PInf, "9**9**9 is Inf"); } @@ -394,7 +394,7 @@ TODO: { local $::TODO; my $here = "$^O $Config{osvers}"; $::TODO = "$here: pow (9**9**9) doesn't give Inf" - if $here =~ /^(?:hpux 10|os390)/; + if $here =~ /^(?:hpux 10)/; is(sin(9**9**9), $NaN, "sin(9**9**9) is NaN"); } |