[perl #63826] tests available

[kyleha]

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

commit 38295f658dd60105e7564f6101d89f08304cd0e9
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Jul 27 15:36:39 2009 +0000

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

diff --git a/t/spec/S02-builtin_data_types/enum.t 
b/t/spec/S02-builtin_data_types/enum.t
index e7e71bf..5a78959 100644
--- a/t/spec/S02-builtin_data_types/enum.t
+++ b/t/spec/S02-builtin_data_types/enum.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 30;
+plan 40;
 # L<S12/Enums>
 {
     my %hash; eval '%hash = enum «:Mon(1) Tue Wed Thu Fri Sat Sun»';
@@ -108,3 +108,35 @@ is %hash.values, (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 'A', 'B', 
'C', 'D', 'E', 'F'), '
 
 %hash = ();
 
+# RT #63826
+{
+    class EnumClass     { enum C <a b c> }
+    #?rakudo todo 'RT #63826'
+    lives_ok { EnumClass::C::a }, 'can refer to enum element in class';
+    #?rakudo skip 'RT #63826'
+    is EnumClass::C::a, 0, 'enum element in class has the right value';
+
+    module EnumModule   { enum M <a b c> }
+    #?rakudo todo 'RT #63826'
+    lives_ok { EnumModule::M::a }, 'can refer to enum element in module';
+    #?rakudo skip 'RT #63826'
+    is EnumModule::M::b, 1, 'enum element in module has the right value';
+
+    package EnumPackage { enum P <a b c> }
+    #?rakudo todo 'RT #63826'
+    lives_ok { EnumPackage::P::a }, 'can refer to enum element in package';
+    #?rakudo skip 'RT #63826'
+    is EnumPackage::P::c, 2, 'enum element in package has the right value';
+
+    role EnumRole       { enum R <a b c> }
+    #?rakudo todo 'RT #63826'
+    lives_ok { EnumRole::R::a }, 'can refer to enum element in role';
+    #?rakudo skip 'RT #63826'
+    is EnumRole::R::a, 0, 'enum element in role has the right value';
+
+    grammar EnumGrammar { enum G <a b c> }
+    #?rakudo todo 'RT #63826'
+    lives_ok { EnumGrammar::G::a }, 'can refer to enum element in grammar';
+    #?rakudo skip 'RT #63826'
+    is EnumGrammar::G::b, 1, 'enum element in grammar has the right value';
+}