X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/294a0d84e3b61a4485c9c0d5e1f4f27980c3affe..878216675877e5b3cbd59257087cc8ebb085ffb0:/t/op/infnan.t

diff --git a/t/op/infnan.t b/t/op/infnan.t
index f8ef072..dccd888 100644
--- a/t/op/infnan.t
+++ b/t/op/infnan.t
@@ -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 + 4;
-my $nan_tests = 5 + 2 * @NaN + 2;
+my $inf_tests = 6 + 6 * @PInf + 5;
+my $nan_tests = 5 + 2 * @NaN + 3;
 my $infnan_tests = 4;
 
 plan tests => $inf_tests + $nan_tests + $infnan_tests;
@@ -61,6 +61,8 @@ SKIP: {
 
   is(1/$PInf, 0, "one per +Inf is zero");
   is(1/$NInf, 0, "one per -Inf is zero");
+
+  is(9**9**9, $PInf, "9**9**9 is +Inf");
 }
 
 SKIP: {
@@ -86,6 +88,8 @@ 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: {