Tests for ::(...) in method names.

Author: jnthn

t/nqp/66-pararole.t

@@ -1,4 +1,4 @@
-plan(2);
+plan(4);
 
 role ParaTest[$a] {
     method m() { $a }
@@ -14,3 +14,18 @@ $a2.HOW.mixin($a2, ParaTest.HOW.curry(ParaTest, "bar"));
 ok($a1.m eq "foo", "mixin of parametric role with first arg");
 ok($a2.m eq "bar", "mixin of parametric role with second arg");
 
+role ParaNameTest[$n, $rv] {
+    method ::($n)() { $rv }
+}
+
+class B {
+}
+
+my $b := B.new();
+$b.HOW.mixin($b, ParaNameTest.HOW.curry(ParaNameTest, "drink", "beer"));
+$b.HOW.mixin($b, ParaNameTest.HOW.curry(ParaNameTest, "meat", "beef"));
+for $b.HOW.method_table($b) {
+    say($_.key);
+}
+ok($b.drink eq "beer", "parametric method name handling works (1)");
+ok($b.meat eq "beef", "parametric method name handling works (2)");