diff --git a/S04-declarations/multiple.t b/S04-declarations/multiple.t index cdf96a2550..c1cf15f4f8 100644 --- a/S04-declarations/multiple.t +++ b/S04-declarations/multiple.t @@ -1,6 +1,6 @@ use v6; use Test; -plan 6; +plan 7; # L @@ -31,4 +31,8 @@ throws-like 'only sub foo {1; }; sub foo($x) {1; };', X::Redeclaration, eval-lives-ok 'proto foo {1; }; sub foo {1; }; sub foo($x) {1; };', 'multiple declarations need multi or proto'; +# RT #118607 +throws-like 'sub foo {1; }; sub foo($x) {1; };', X::Redeclaration, + 'suggest multi-sub for sub redeclaration', message => /'did you mean to declare a multi-sub'/; + # vim: ft=perl6