# New Ticket Created by Christian Bartolomaeus
# Please include the string: [perl #128720]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=128720 >
There are failing (skipped) tests for rakudo-j in S32-list/unique.t and
S32-list/repeated.t that fail with 'This Seq has already been iterated, and its
values consumed'. An example:
$ ./perl6-j -e 'my $a = <b b>; $a .= unique; say $a.perl'
Seq.new-consumed()
As far as I understand, the problem happens because calling the mutator method
with '$a .= unique' is executed in sink context. If I wrap that code in
nqp::stmts to avoid sinking it works as expected:
$ ./perl6-j -e 'use nqp; my $a = <b b>; nqp::stmts($a .= unique); say $a.perl'
("b",).Seq
I took a look at the implementation of 'p6sink' for JVM and MoarVM and both
implementations are calling method sink -- but maybe rakudo-m does not call it
directly on the Seq?
