Test for RT #125876.

Raku · Sep 19, 2015 · 406c27b · 406c27b
1 parent 1db8547
commit 406c27b
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S04-statements/while.t b/S04-statements/while.t
@@ -4,7 +4,7 @@ use v6;
 
 use Test;
 
-plan 9;
+plan 10;
 
 {
     my $i = 0;
@@ -74,4 +74,7 @@ plan 9;
         'keyword needs at least one whitespace after it');
 }
 
+# RT #125876
+lives-ok { EVAL 'while 0 { my $_ }' }, 'Can declare $_ in a loop body';
+
 # vim: ft=perl6