Permalink
Browse files

[t/spec] Test for RT #69919

git-svn-id: http://svn.pugscode.org/pugs@28872 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 2ed580f commit 4898b49cbddc8f5584410be56979ac55d53aab1c kyle committed Oct 21, 2009
Showing with 15 additions and 1 deletion.
  1. +15 −1 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

0 comments on commit 4898b49

Please sign in to comment.