[perl #69919] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S14-roles/composition.t

commit 8282341ffa5af1abb35a31d470184058a98c5009
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Oct 21 18:29:00 2009 +0000

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

diff --git a/t/spec/S14-roles/composition.t b/t/spec/S14-roles/composition.t
index 57798e7..5d3c93f 100644
--- a/t/spec/S14-roles/composition.t
+++ b/t/spec/S14-roles/composition.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 19;
+plan *;
 
 # L<S14/Roles/"Roles may be composed into a class at compile time">
 
@@ -85,4 +85,18 @@ ok rB !~~ RT64002, 'role not matched by second role it does';
     is DE.new.foo, 'OH HAI', 'same with punning and inheritance';
 }
 
+# RT #69919
+{
+    role RT69919 {
+        my $lex = 'Luthor';
+        method rt69919 { return $lex }
+    }
+    class IL does RT69919 {}
+
+    #?rakudo skip 'RT 69919, Null PMC access in type()'
+    is IL.new.rt69919, 'Luthor', 'access lexical declared in role from method 
called via class that does the role';
+}
+
+done_testing;
+
 # vim: syn=perl6