[perl #69967] tests available

[kyleha]

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

commit 4384f9e3c5d22e1bbdf564c98773a2b1538e23eb
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Oct 22 19:48:21 2009 +0000

    [t/spec] tests for RT #69967, constant declarations and classes
    
    git-svn-id: http://svn.pugscode.org/p...@28884 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S04-declarations/constant.t 
b/t/spec/S04-declarations/constant.t
index b207465..e7aa000 100644
--- a/t/spec/S04-declarations/constant.t
+++ b/t/spec/S04-declarations/constant.t
@@ -246,6 +246,21 @@ plan *;
              'assign constant its own value from expression';
 }
 
+#?rakudo skip 'RT 69967'
+{
+    constant C = 6;
+    class A {
+        constant B = 5;
+        has $.x = B;
+        has $.y = A::B;
+        has $.z = C;
+    }
+
+    is A.new.x, 5, 'Can declare and use a constant in a class';
+    is A.new.y, 5, 'Can declare and use a constant with FQN in a class';
+    is A.new.z, 6, 'Can use outer constants in a class';
+}
+
 done_testing;
 
 # vim: ft=perl6