[gitmo/Moose-Autobox.git] / t / 004_list_compressions.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;

BEGIN {
    use_ok('Moose::Autobox');
}

use autobox;

is_deeply(
[ 1 .. 5 ]->map(sub { $_ * $_ }),
[ 1, 4, 9, 16, 25 ],
'... got the expected return values');

is_deeply(
[ 1 .. 5 ]->map(sub { $_ * $_ })->do(sub { $_->zip($_) }),
[ [1, 1], [4, 4], [9, 9], [16, 16], [25, 25] ],
'... got the expected return values');
Commit	Line	Data
252ab1a2	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 3;
	7
	8	BEGIN {
	9	use_ok('Moose::Autobox');
	10	}
	11
	12	use autobox;
	13
	14	is_deeply(
	15	[ 1 .. 5 ]->map(sub { $_ * $_ }),
	16	[ 1, 4, 9, 16, 25 ],
	17	'... got the expected return values');
	18
	19	is_deeply(
	20	[ 1 .. 5 ]->map(sub { $_ * $_ })->do(sub { $_->zip($_) }),
	21	[ [1, 1], [4, 4], [9, 9], [16, 16], [25, 25] ],
	22	'... got the expected return values');