[perl #63882] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S02-names/our.t

commit d176c5c8b7b9b5d92ed952f701ed2d740a5610e0
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Jul 27 19:57:31 2009 +0000

    [t/spec] Test for RT #63882
    
    git-svn-id: http://svn.pugscode.org/p...@27760 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-names/our.t b/t/spec/S02-names/our.t
index db8de18..1627adc 100644
--- a/t/spec/S02-names/our.t
+++ b/t/spec/S02-names/our.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 3;
+plan 7;
 
 # L<S02/Names/Symbols in the current package>
 
@@ -13,3 +13,15 @@ plan 3;
     #?rakudo skip 'Null PMC access in invoke()'
     is OUR::eval_born(), 5, 'call to eval-born sub works';
 }
+
+# RT #63882
+{
+    enum A <a b c>;
+    is c, 2, 'c is 2 from enum';
+    eval 'sub c { "sub c" }';
+    ok  $!  !~~ Exception, 'can define sub c in eval after c defined in enum';
+    #?rakudo todo 'sub in eval shadows enum'
+    is c, 2, 'c is still 2 from enum';
+    #?rakudo skip 'OUR::subname() does not work'
+    is OUR::c(), 'sub c', 'sub c called with OUR:: works';
+}