This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Test 9**9**9 for Inf and sin(9**9**9) for NaN."
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 23 Aug 2014 12:49:29 +0000 (08:49 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 23 Aug 2014 12:49:49 +0000 (08:49 -0400)
This reverts commit 3761cb2c37385299211e45c965fb0d727e13c80b.

t/op/infnan.t

index 8a892c7..f8ef072 100644 (file)
@@ -19,8 +19,8 @@ my @NaN = ("NAN", "nan", "qnan", "SNAN", "NanQ", "NANS",
            "NaN123", "NAN(123)", "nan%",
            "nanonano"); # RIP, Robin Williams.
 
-my $inf_tests = 6 + 6 * @PInf + 5;
-my $nan_tests = 5 + 2 * @NaN + 3;
+my $inf_tests = 6 + 6 * @PInf + 4;
+my $nan_tests = 5 + 2 * @NaN + 2;
 my $infnan_tests = 4;
 
 plan tests => $inf_tests + $nan_tests + $infnan_tests;
@@ -61,8 +61,6 @@ SKIP: {
 
   is(1/$PInf, 0, "one per +Inf is zero");
   is(1/$NInf, 0, "one per -Inf is zero");
-
-  is(9**9**9, $Inf, "9**9**9 is Inf");
 }
 
 SKIP: {
@@ -88,8 +86,6 @@ SKIP: {
   # is() okay with $NaN because eq is used.
   is($NaN * 0, $NaN, "NaN times zero is NaN");
   is($NaN * 2, $NaN, "NaN times two is NaN");
-
-  is(sin(9**9**9), $NaN, "sin(9**9**9) is NaN");
 }
 
 SKIP: {