This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op/infnan.t: Todo tests are now passing on EBCDIC
authorKarl Williamson <khw@cpan.org>
Sun, 21 Jun 2020 17:50:34 +0000 (11:50 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 18 Jul 2020 04:04:08 +0000 (22:04 -0600)
t/op/infnan.t

index 70c75f3..7a2de7d 100644 (file)
@@ -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");
 }