This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test for inf range ends.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 12 Jan 2015 03:27:45 +0000 (22:27 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 12 Jan 2015 11:45:13 +0000 (06:45 -0500)
t/op/infnan.t

index 7627135..00087eb 100644 (file)
@@ -248,6 +248,14 @@ SKIP: {
     is("a" x $NInf, "", "x -Inf");
 }
 
+{
+    eval 'for my $x (0..$PInf) { last }';
+    like($@, qr/Range iterator outside integer range/, "0..+Inf fails");
+
+    eval 'for my $x ($NInf..0) { last }';
+    like($@, qr/Range iterator outside integer range/, "-Inf..0 fails");
+}
+
 # === NaN ===
 
 cmp_ok($NaN, '!=', $NaN, "NaN is NaN numerically (by not being NaN)");