Commit | Line | Data |
0e480911 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | |
5 | use Moose::Autobox; |
6 | |
7 | { |
8 | my @array = ('a' .. 'z'); |
9 | |
10 | my $aref = [ @array ]; |
11 | |
12 | { |
13 | my @vals; |
450776ec |
14 | @array->each_n_values(2, sub { push @vals, [@_] }); |
0e480911 |
15 | is(scalar @vals, 13); |
16 | is(scalar @$_, 2) for @vals; |
17 | is_deeply(@vals->map(sub { @{ $_ } }), [@array]); |
18 | } |
19 | |
20 | { |
21 | my @vals; |
450776ec |
22 | $aref->each_n_values(2, sub { push @vals, [@_] }); |
0e480911 |
23 | is(scalar @vals, 13); |
24 | is(scalar @$_, 2) for @vals; |
25 | is_deeply(@vals->map(sub { @{ $_ } }), $aref); |
26 | } |
27 | } |
28 | |
29 | done_testing; |