Tests for RT #126606.

S14-roles/stubs.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 14;
+plan 28;
 
 role WithStub { method a() { ... } };
 role ProvidesStub1 { method a() { 1 } };
@@ -59,3 +59,11 @@ throws-like { EVAL 'my role F119643 { ... }; class C119643 does F119643 {}' },
     my class C does B does A { }
     is C.new.bar(), "success!", 'private method call in role dispatches on type of target class';
 }
+
+# RT #126606
+{
+    my role R { method m() { ... } }
+    for <gist perl DUMP item Str Bool defined so not WHICH WHERE Stringy Numeric Real> {
+        lives-ok { R."$_"() }, ".$_ on role with requirement does not pun it and die";
+    }
+}