Permalink
Browse files

test for RT #62200: classes overriding methods from roles

git-svn-id: http://svn.pugscode.org/pugs@24877 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
mattw
mattw committed Jan 11, 2009
1 parent 2c5007f commit a8fc3f9538c97ffa03d24fc3a7395e99d94786db
Showing with 10 additions and 0 deletions.
  1. +10 −0 S12-role/composition.t
View
@@ -48,4 +48,14 @@ is $y.mA2, 'mA2', 'Can call mixed in method (two roles) 2';
is $y.mB1, 'mB1', 'Can call mixed in method (two roles) 3';
is $y.mB2, 'mB2', 'Can call mixed in method (two roles) 4';
+class D1 does rA {
+ method mA1 {
+ 'D1.mA1';
+ }
+}
+
+my $z = D1.new();
+
+is $z.mA1, 'D1.mA1', 'Can override method in a role with method in a class';
+
# vim: syn=perl6

0 comments on commit a8fc3f9

Please sign in to comment.