Add test for RT#126724

Raku · May 10, 2018 · c65ed93 · c65ed93
1 parent bdf67b6
commit c65ed93
Showing 1 changed file with 10 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 11;
+plan 12;
 
 =begin pod
 
@@ -47,4 +47,13 @@ throws-like q[
     class A does R1 does R2 { }
     ], Exception, 'private roles can cause conflicts too';
 
+# RT #126724
+throws-like q[
+    role R { has $.grfuffle };
+    role S does R { has $.grfuffle };
+    S.new
+    ], Exception,
+    message => /:i <before .*attribute> && <before .*grfuffle> && <before .*conflict> /,
+    'attribute conflict with pun';
+
 # vim: ft=perl6