Merge pull request #803 from vrurg/rakudo-4850

Add test for topic within a nested closure

S04-statements/given.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 53;
+plan 54;
 
 =begin pod
 
@@ -435,4 +435,16 @@ eval-lives-ok 'sub a() { } given 3',     'can define a sub inside a statement-mo
     ok $capture-is-correct, 'matches in when correctly set $0';
 }
 
+# Make sure lexically scoped topic is accessible within a nested closure.
+# https://github.com/rakudo/rakudo/issues/4850
+{
+    my &c;
+    given 'foo' {
+        when Str {
+            &c = { $_  };
+        }
+    }
+    is &c(), 'foo', 'lexical topic in a nested closure';
+}
+
 # vim: expandtab shiftwidth=4