diff --git a/S12-construction/new.t b/S12-construction/new.t index 890db4cccc..846e594653 100644 --- a/S12-construction/new.t +++ b/S12-construction/new.t @@ -1,7 +1,7 @@ use v6; use Test; -plan 23; +plan 24; class Parent { has $.x; @@ -112,6 +112,15 @@ is $o.x, 5, '... worked for the class Parent (other order)'; dies_ok { X.new }, 'RT #100780' } +# RT #74300 +{ + class RT74300 { + has $.foo; + multi method new($) {} + } + is RT74300.new(:foo).foo, 'bar', 'multi method($) does not break attribute initialization'; +} + done; # vim: ft=perl6