tests for RT #78234, sub declaration inside a "given"

Raku · Oct 25, 2011 · 148cafa · 148cafa
1 parent 87785c0
commit 148cafa
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S04-statements/given.t b/S04-statements/given.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 49;
+plan 51;
 
 =begin pod
 
@@ -305,4 +305,8 @@ Tests the given block, as defined in L<S04/"Switch statements">
     is $tracker, 2, 'statement-modifying when';
 }
 
+# RT #78234
+eval_lives_ok 'given 3 { sub a() { } }', 'can define a sub inside a given';
+eval_lives_ok 'sub a() { } given 3',     'can define a sub inside a statement-modifying given';
+
 # vim: ft=perl6