[perl #76366] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S04-declarations/my.t

commit 250691a4b287c3ba06b94e5d107bd9e60cfcb20e
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Jul 16 07:46:44 2010 +0000

    [t/spec] tests for RT #76366, accessing lexicals through our-subs
    
    git-svn-id: http://svn.pugscode.org/p...@31718 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S04-declarations/my.t b/t/spec/S04-declarations/my.t
index b14c3c3..68b5bc0 100644
--- a/t/spec/S04-declarations/my.t
+++ b/t/spec/S04-declarations/my.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 63;
+plan 65;
 
 #L<S04/The Relationship of Blocks and Declarations/"declarations, all
 # lexically scoped declarations are visible"> 
@@ -232,6 +232,19 @@ my $z = 42;
     }
 }
 
+# used to be RT #76366
+{
+    lives_ok { access_lexical_a() },
+        'can call our-sub that accesses a lexical before the block was run';
+    {
+        my $a = 42;
+        our sub access_lexical_a() { $a }
+    }
+    is  access_lexical_a(), 42,
+        'can call our-sub that accesses a lexical after the block was run';
+
+}
+
 eval_lives_ok 'my (%h?)', 'my (%h?) lives';
 
 #RT 63588