Added tests for RT #95514.

Author: peschwa

S12-methods/delegation.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 5;
+plan 7;
 
 class A {
     method Str() handles 'uc' {
@@ -21,3 +21,29 @@ is_approx $a.sqrt,   2,          'delegation to multiple names (1)';
 is        $a.floor,  4,          'delegation to multiple names (2)';
 is        $a.base(16), 'FF',     'delegation and arguments';
 is        A.base(16),  'FF',     '... same with type object invocant';
+
+{
+    role R { 
+        method foo { self.bar(42) };
+        method bar($x) { $x };
+    };
+
+    class C does R {
+        method foo { self.R::foo };
+    };
+
+    is C.new.foo, 42, 'role method calls works through role delegation independent of declaration order.';
+
+    role Rr { 
+        method bar($x) { $x };
+        method foo { self.bar(42) };
+    };
+
+    class Cc does Rr {
+        method foo { self.Rr::foo };
+    };
+
+    is Cc.new.foo, 42, 'role method calls works through role delegation independent of declaration order.';
+}
+
+done;