File Coverage

File:t/02-List-Util.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!perl
2
3
1
1
1
90728
3
87
use strict;
4
1
1
1
4
1
42
use warnings;
5
6
1
1
1
611
95162
10
use Test::More tests => 23;
7
8
1
1
1
1580
4
95
use Util::Underscore;
9
10
1
177905
my %lu_aliases = qw/
11    reduce reduce
12    any any
13    all all
14    none none
15    max max
16    max_str maxstr
17    min min
18    min_str minstr
19    sum sum
20    product product
21    pairgrep pairgrep
22    pairfirst pairfirst
23    pairmap pairmap
24    shuffle shuffle
25    /;
26
27
1
8
while (my ($k, $v) = each %lu_aliases) {
28
1
1
1
6
1
128
    no strict 'refs';
29
14
14
14
8412
55
83
    ok \&{"_::$k"} == \&{"List::Util::$v"}, "_::$k == List::Util::$v";
30}
31
32
1
590
my %lmu_aliases = qw/
33    first first_value
34    first_index first_index
35    last last_value
36    last_index last_index
37    natatime natatime
38    uniq uniq
39    part part
40    each_array each_arrayref
41    /;
42
43
1
8
while (my ($k, $v) = each %lmu_aliases) {
44
1
1
1
4
1
2080
    no strict 'refs';
45
8
8
8
4746
43
49
    ok \&{"_::$k"} == \&{"List::MoreUtils::$v"}, "_::$k == List::MoreUtils::$v";
46}
47
48# Special test for "zip":
49
50
1
633
my @xs = qw/a b c d/;
51
1
3
my @ys = qw/1 2 3/;
52
1
6
is_deeply [ _::zip \@xs, \@ys ], [ a => 1, b => 2, c => 3, d => undef ],
53    '_::zip sanity test';