[perl #69260] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-attributes/inheritance.t

commit f66cda4035ab6680f222c1f32b724786b40832b8
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Sep 26 16:33:20 2009 +0000

    [t/spec] tests for RT #69260, private attributes leaking to parent class
    
    git-svn-id: http://svn.pugscode.org/p...@28420 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-attributes/inheritance.t 
b/t/spec/S12-attributes/inheritance.t
index da9eadc..17531e9 100644
--- a/t/spec/S12-attributes/inheritance.t
+++ b/t/spec/S12-attributes/inheritance.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 3;
+plan 5;
 
 # test relation between attributes and inheritance
 
@@ -25,4 +25,20 @@ class Artie61500 {
 eval_dies_ok 'class Artay61500 is Artie61500 { method bomb { return $!p } }',
     'Compile error for subclass to access private attribute of parent';
 
+class Parent {
+    has $!priv = 23;
+    method get { $!priv };
+}
+
+class Child is Parent {
+    has $!priv = 42;
+}
+
+#?rakudo 2 todo 'RT 69260'
+is Child.new().Parent::get(), 23,
+   'private attributes do not leak from child to parent class (1)';
+
+is Child.new().get(), 23,
+   'private attributes do not leak from child to parent class (2)';
+
 # vim: ft=perl6