From @coke

There's a failing test in S05-match/perl.t for this.

Looks like the topmost "hash" attribute isn't the same.

# expected​: Match.new(ast => Any, list => (), hash =>
EnumMap.new(​:operator([Match.new(ast => Any, list => (), hash =>
EnumMap.new(), orig => "2 + 4", to => 3, from => 2)])), orig => "2 +
4", to => 5, from => 0)
# got​: Match.new(ast => Any, list => (), hash => EnumMap.new(),
orig => "2 + 4", to => 5, from => 0)

--
Will "Coke" Coleda

From @coke

Additionally, there's a test that refers to <operator> on the match object, which dies with​:

This representation (Null) does not support associative access
  in block <unit> at t/spec/S05-match/perl.rakudo.moar​:23

That is skipped.

--
Will "Coke" Coleda

From @usev6

As far as I understand it, the problem can be golfed to the following​:

$ perl6 -e 'say EnumMap.new("a", 42).perl'
EnumMap.new(​:a(42))

$ perl6 -e 'say EnumMap.new("a", 42).perl.perl'
"EnumMap.new(​:a(42))"

$ perl6 -e 'say EnumMap.new("a", 42).perl.EVAL'
EnumMap.new()

@usev6 - Status changed from 'new' to 'open'

From @lizmat

On 06 Jun 2015, at 13​:45, Christian Bartolomaeus via RT <bugs-comment@​bugs6.perl.org> wrote​:

As far as I understand it, the problem can be golfed to the following​:

$ perl6 -e 'say EnumMap.new("a", 42).perl'
EnumMap.new(​:a(42))

$ perl6 -e 'say EnumMap.new("a", 42).perl.perl'
"EnumMap.new(​:a(42))"

$ perl6 -e 'say EnumMap.new("a", 42).perl.EVAL'
EnumMap.new()

FWIW, PairMap currently suffers the same issue. And Hash would as well, if TimToday hadn’t implemented the new <> decont notation and then change the .perl output to using {}.

:-(

Not sure whether to fix .new on these, the underlying STORE, or .perl.

Liz

From @usev6

The tests in question have been unfudged with roast commit Raku/roast@6db316eaae. (This was probably fixed with merging the 'uncurse' branch.)

The last example from the last comment (using EVAL) works as expected, too​:

$ ./perl6-m -e 'say Map.new("a", 42).perl.EVAL'
Map.new((​:a(42)))

I'm closing this ticket as 'resolved'.

@usev6 - Status changed from 'open' to 'resolved'