# New Ticket Created by Peter du Marchie van Voorthuysen
# Please include the string: [perl #132246]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=132246 >
This is Rakudo version 2017.07 built on MoarVM version 2017.07
implementing Perl 6.c.
For regular hashes the methods .pick and .roll return the expected results:
> use Test;
Nil;
> my %str = question => 42;
{question => 42}
> is %str.pick, %str.pairs.pick;
ok 1 -
True
> is %str.roll, %str.pairs.roll;
ok 2 -
True
But these methods appear to be unaware of the object hash abstraction:
> my %obj{Any} = question => 42;
{question => 42}
> is %obj.pick, %obj.pairs.pick;
not ok 3 -
# Failed test at <unknown file> line 1
# expected: 'question 42'
# got: 'Str|question question 42'
False
> is %obj.roll, %obj.pairs.roll;
not ok 4 -
# Failed test at <unknown file> line 1
# expected: 'question 42'
# got: 'Str|question question 42'
False
