Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

35 lines (19 sloc) 0.611 kb
use v6;
use Test;
plan 6;
# L<S32::Containers/Container/"=item cat">
=begin pod
Tests of
our Lazy multi Container::cat( **@list );
=end pod
ok(cat() eqv (), 'cat null identity');
ok(cat(1) eqv (1,), 'cat scalar identity');
ok(cat(1..3) eqv 1..3, 'cat list identity');
ok(cat([1..3]) eqv 1..3, 'cat array identity');
# These below work. Just waiting on eqv.
#?pugs 2 todo 'These tests depend on eqv'
ok(cat({'a'=>1,'b'=>2,'c'=>3}) eqv ('a'=>1, 'b'=>2, 'c'=>3),
'cat hash identity');
ok(cat((); 1; 2..4; [5..7], {'a'=>1,'b'=>2}) eqv (1..7, 'a'=>1, 'b'=>2),
'basic cat');
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.