This is an automatically generated mail to inform you that tests are now
available in t/spec/S03-operators/assign.t
commit 237f1992528d15f84b02d0f3bafdc4489096e5d5
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Tue Jun 29 10:00:52 2010 +0000
[t/spec] test for RT #75950, my ($x) = grep $early_hit, @long_range
git-svn-id: http://svn.pugscode.org/p...@31497
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S03-operators/assign.t b/t/spec/S03-operators/assign.t
index 829b37a..cbd6850 100644
--- a/t/spec/S03-operators/assign.t
+++ b/t/spec/S03-operators/assign.t
@@ -6,7 +6,7 @@ use Test;
# V
# L<S03/Changes to Perl 5 operators/list assignment operator now parses on
the right>
-plan 240;
+plan 242;
# tests various assignment styles
@@ -757,4 +757,13 @@ sub l () { 1, 2 };
is((try {my $t = (1 == 0) ?? "true" !! "false"; $t}), "false", '.. also
for false');
}
+# RT #75950
+#?rakudo skip 'RT 75950'
+{
+ my $x;
+ lives_ok { ($x) = grep 5, 1..1_000_000 },
+ 'Can grep lazily through a very long range';
+ is $x, 5, '... with correct result';
+}
+
# vim: ft=perl6
