Tests covering regression in given/for s.m.

Raku · Apr 28, 2015 · f113f3f · f113f3f
1 parent f3d73db
commit f113f3f
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 2 deletions.
diff --git a/S04-statement-modifiers/for.t b/S04-statement-modifiers/for.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 25;
+plan 26;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -138,4 +138,11 @@ is ((sub r { "OH HAI" })() for 5), "OH HAI", 'Anon sub in statement modifier for
     is $a, '12', 'Correct $_ in try block in statement-modifying for';
 }
 
+{
+    # Covers a bug where the block to first got compiled in the 'for' thunk
+    my @a;
+    for ^2 -> \c { 1 for first { @a.push(c); 0 }, ^2; };
+    is @a, (0, 0, 1, 1), 'for thunk does not mess up statement modifier closures';
+}
+
 # vim: ft=perl6
diff --git a/S04-statement-modifiers/given.t b/S04-statement-modifiers/given.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 10;
+plan 11;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -68,4 +68,11 @@ plan 10;
     is $a, 42, 'given modifier with placeholder block runs block with correct arg';
 }
 
+{
+    # Covers a bug where the block to first got compiled in the 'given' thunk
+    my @a;
+    for ^2 -> \c { 1 given first { @a.push(c); 0 }, ^2; };
+    is @a, (0, 0, 1, 1), 'given thunk does not mess up statement modifier closures';
+}
+
 # vim: ft=perl6