We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3162e00 commit a458713Copy full SHA for a458713
S06-signature/errors.t
@@ -2,7 +2,7 @@
2
3
use Test;
4
5
-plan 9;
+plan 10;
6
7
=begin pod
8
@@ -46,4 +46,11 @@ eval_lives_ok 'sub quuuux ($!) { ... }', 'but $! is OK';
46
eval_dies_ok 'my class A { submethod BUILD(:$!notthere = 10) }; A.new',
47
'named parameter of undeclared attribute dies';
48
49
+# RT #72082
50
+{
51
+ try { eval 'sub rt72082(@a, $b) {}; rt72082(5)' };
52
+ my $error = ~$!;
53
+ ok $error ~~ / 'will never work' .* 'Expected' .* '(@a, $b)' /
54
+}
55
+
56
# vim: ft=perl6
0 commit comments