Fixed with 12fcece494e12b , tests needed
> On 8 Oct 2017, at 13:18, Peter du Marchie van Voorthuysen (via RT)
> <[email protected]> wrote:
>
> # 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
