private methods are carried in the role-to-role applier, RT #111664

Raku · Jun 28, 2012 · 6447786 · 6447786
1 parent 4e78667
commit 6447786
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S14-roles/conflicts.t b/S14-roles/conflicts.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 10;
+plan 11;
 
 =begin pod
 
@@ -43,4 +43,11 @@ is      $was_in_sentry_shake,   1, "conflict resolution works (2-3)";
 #?rakudo todo 'nom regression'
 is      $was_in_pet_shake,      1, "conflict resolution works (2-4)";
 
+# RT #111664
+eval_dies_ok q[
+    role R1 { method !foo() { 1 }}
+    role R2 { method !foo() { 2 } }
+    class A does R1 does R2 { }
+    ], 'private roles can cause conflicts too';
+
 # vim: ft=perl6