[perl #64594] You can push strings to attribute arrays typed with Int in Rakudo

[jn...@jnthn.net via RT]

On Thu Apr 23 09:44:12 2009, moritz wrote:
> On Thu Apr 09 01:12:40 2009, masak wrote:
> > <moritz_> rakudo: class A { has Int @.a is rw }; my $x=A.new; $x.a =
> > (2, 3, 4); say $x.a.perl
> > <p6eval> rakudo e05aff: OUTPUT«[2, 3, 4]␤»
> > <moritz_> rakudo: class A { has Int @.a is rw }; my $x=A.new; $x.a =
> > (2, 3, 4); $x.a.push: 'foo';  say $x.a.perl
> > <p6eval> rakudo e05aff: OUTPUT«[2, 3, 4, "foo"]␤»
> > <moritz_> masak: care to submit? :-)
> > * masak submits
> > <moritz_> rakudo: class A { has Int @.a is rw }; my $x=A.new; $x.a =
> > <foo bar>; say $x.a.perl
> > <p6eval> rakudo e05aff: OUTPUT«["foo", "bar"]␤»
> 
> Tests can be found in t/spec/S12-attributes/instance.t.
> 
Fixed in git 6685755, and unfudged the tests (all but one pass, due to
what I believe to be an unrelated auto-vivification bug; todo'd that one).

Thanks,

Jonathan