Front page | perl.perl6.compiler |
Postings from July 2012
# New Ticket Created by Ron Schmidt
# Please include the string: [perl #113922]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=113922 >
See from IRC http://irclog.perlgeek.de/perl6/2012-06-18#i_5738718
A test might look something like the code below which currently results
in a "not OK".
use Test;
my $i = 0;
my @a = (10, 20 ,30 ,40);
my @l := gather { for @a {$i++; take $_ } };
my @pull;
push @pull, $i, $_ for @l;
is_deeply(@pull, [ 0, 10, 1, 20, 2, 30, 3, 40]);