Added tests for RT #89208

Raku · Jan 26, 2014 · 06a737b · 06a737b
1 parent fab066e
commit 06a737b
Show file tree

Hide file tree

Showing 2 changed files with 8 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 20;
+plan 21;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -114,4 +114,7 @@ eval_dies_ok '1 for <a b> for <c d>;', 'double statement-modifying for is not al
     is @a.join(','), '0,1,2';
 }
 
+# RT #89208
+is ((sub r { "OH HAI" })() for 5), "OH HAI", 'Anon sub in statement modifier for works.';
+
 # vim: ft=perl6
diff --git a/S04-statements/for.t b/S04-statements/for.t
@@ -14,7 +14,7 @@ for statement as possible
 
 =end description
 
-plan 77;
+plan 78;
 
 ## No foreach
 # L<S04/The C<for> statement/"no foreach statement any more">
@@ -583,4 +583,7 @@ dies_ok
     is @a, [1, 2, 3, 4, 5, 6, 7, 8,9, 10, 11];
 }
 
+# RT #89208
+is (for 5 { (sub { "OH HAI" })() }), "OH HAI", 'Anon sub inside for works.';
+
 # vim: ft=perl6