Skip to content

Commit cbde750

Browse files
committed
Merge pull request #12 from djanatyn/master
GCI - Test for RT #74300
2 parents 18f9e04 + 363a3db commit cbde750

File tree

1 file changed

+10
-1
lines changed

1 file changed

+10
-1
lines changed

S12-construction/new.t

Lines changed: 10 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
use v6;
22
use Test;
33

4-
plan 23;
4+
plan 24;
55

66
class Parent {
77
has $.x;
@@ -112,6 +112,15 @@ is $o.x, 5, '... worked for the class Parent (other order)';
112112
dies_ok { X.new }, 'RT #100780'
113113
}
114114

115+
# RT #74300
116+
{
117+
class RT74300 {
118+
has $.foo;
119+
multi method new($) {}
120+
}
121+
is RT74300.new(:foo<bar>).foo, 'bar', 'multi method($) does not break attribute initialization';
122+
}
123+
115124
done;
116125

117126
# vim: ft=perl6

0 commit comments

Comments
 (0)