# New Ticket Created by Christian Bartolomaeus
# Please include the string: [perl #126671]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=126671 >
On rakudo.jvm there are failing tests in S32-hash/adverbs.t because the
returned elements of @!unexpected in X::Adverb are not ordered as expected.
The following evaluation shows the difference between rakudo.moar and
rakudo.jvm: ["zip", "zop"] vs. ["zop", "zip"]
$ perl6-m -e 'my %h; { say %h{}:kv:p:zip:zop; CATCH { default { say $_.perl } }
}'
X::Adverb.new(what => "slice", source => "\%h", unexpected => ["zip", "zop"],
nogo => ["kv", "p"])
$ perl6-j -e 'my %h; { say %h{}:kv:p:zip:zop; CATCH { default { say $_.perl } }
}'
X::Adverb.new(what => "slice", source => "\%h", unexpected => ["zop", "zip"],
nogo => ["kv", "p"])
I'm going to fudge the tests for the moment, but this looks like a low hanging
fruit to fix.
