Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit a8fc3f9538c97ffa03d24fc3a7395e99d94786db 1 parent 2c5007f
mattw authored
Showing with 10 additions and 0 deletions.
  1. +10 −0 S12-role/composition.t
View
10 S12-role/composition.t
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.