1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict;
use warnings;
use Test::More;
use List::UtilsBy::XS qw( unzip_by );
my @expected;
is_deeply( [ unzip_by { } ], [], 'empty list' );
is_deeply( [ unzip_by { $_ } qw/a b c/ ], [ [ qw/a b c/ ] ], 'identity function' );
@expected = ([ qw/a b c/ ], [ qw/a b c/ ]);
is_deeply( [ unzip_by { $_, $_ } qw/a b c/ ], \@expected, 'clone function' );
@expected = ([ qw/a b c/ ], [ 1, 2, 3 ]);
is_deeply( [ unzip_by { m/(.)/g } qw/a1 b2 c3/ ], \@expected, 'regexp match function' );
@expected = ([ qw/a b c/ ], [ undef, 2, undef ]);
is_deeply( [ unzip_by { m/(.)/g } qw/a b2 c/ ], \@expected, 'non-rectangular adds undef' );
@expected = ([ qw/a b c/ ], [ 'A', 2, undef ], [ 1, undef, undef ]);
is_deeply( [ unzip_by { m/(.)/g } qw/aA1 b2 c/ ], \@expected, 'non-rectangular adds undef2' );
done_testing;
|
