This is an automatically generated mail to inform you that tests are now
available in t/spec/S04-statements/for.t
commit 651ee826e32816a994dd7c7ba3ff8da1f712ed36
Author: bbkr <b...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Fri Jul 30 17:14:28 2010 +0000
[t/spec] tests for RT #64886 For (1..10000000000) bug
git-svn-id: http://svn.pugscode.org/p...@31871
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S04-statements/for.t b/t/spec/S04-statements/for.t
index ea1acf0..d9858f4 100644
--- a/t/spec/S04-statements/for.t
+++ b/t/spec/S04-statements/for.t
@@ -478,6 +478,16 @@ eval 'for (my $x; $x <=3; $x++) { $i; }'; diag($!);
ok $! ~~ / 'C-style' /, 'Sensible error message';
}
+# RT #64886
+{
+ my $a = 0;
+ for (1..10000000000) {
+ $a++;
+ last;
+ }
+ is $a, 1, 'for on Range with huge max value is lazy and enters block';
+}
+
done_testing;
# vim: ft=perl6
