Tests for RT #77152 (<&foo($arg)>).

S05-interpolation/lexicals.t

@@ -1,5 +1,5 @@
 use Test;
-plan 10;
+plan 14;
 
 my regex abc { abc }
 
@@ -19,5 +19,15 @@ ok 'fooabcdef' ~~ / . <other=&abc> . /, '<other=&abc> captures lexical regex';
 is ~$/, 'oabcd', 'correctly matched string';
 is $<other>, 'abc', 'correctly captured to $<other>';
 
+# RT #77152
+{
+    my regex foo($s) { $s };
+
+    ok 'a' ~~ / <&foo('a')> /, '<&foo(...)> parses and passes args correctly (1)';
+    nok 'a' ~~ / <&foo('b')> /, '<&foo(...)> parses and passes args correctly (2)';
+
+    ok 'c' ~~ / <&foo: 'c'> /, '<&foo: ...> parses and passes args correctly (1)';
+    nok 'c' ~~ / <&foo: 'd'> /, '<&foo: ...> parses and passes args correctly (2)';
+}
 
 done;