Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (20 sloc) 707 Bytes
use v6;
use Test;
plan 5;
# L<S32::Containers/Container/"=item roundrobin">
=begin pod
Tests of
our Lazy multi Container::roundrobin( Bool :$shortest,
Bool :$finite, **@list );
=end pod
is roundrobin().elems, 0, 'roundrobin null identity';
is roundrobin(1).join, '1', 'roundrobin scalar identity';
#?pugs skip 'No such method in class Array: "&Str"'
is(roundrobin(1..3).Str, (1..3).Str, 'roundrobin list identity');
#?rakudo todo 'over-flattening'
#?pugs todo
is(roundrobin([1..3]).elems, 1, 'roundrobin does not flatten array items');
#?pugs todo
is(roundrobin((); 1; 2..4; (5..7); <a b>).join(' '),
(1, 2, 5, 'a', 3, 6, 'b', 4, 7).join(' '), 'basic roundrobin');
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.