Blob Blame History Raw
use strict;
use warnings;
use Test::More;

plan tests => 14 unless  $::NO_PLAN && $::NO_PLAN;

require_ok 'List::Pairwise';
List::Pairwise->import(':all');

# test import
is(\&mapp, \&List::Pairwise::mapp, 'mapp imported');
is(\&map_pairwise, \&List::Pairwise::map_pairwise, 'map_pairwise imported');
is(\&mapp, \&map_pairwise, 'mapp and map_pairwise are alias');

is(\&grepp, \&List::Pairwise::grepp, 'grepp imported');
is(\&grep_pairwise, \&List::Pairwise::grep_pairwise, 'grep_pairwise imported');
is(\&grepp, \&grep_pairwise, 'grepp and grep_pairwise are alias');

is(\&firstp, \&List::Pairwise::firstp, 'firstp imported');
is(\&first_pairwise, \&List::Pairwise::first_pairwise, 'first_pairwise imported');
is(\&firstp, \&first_pairwise, 'firstp and first_pairwise are alias');

is(\&lastp, \&List::Pairwise::lastp, 'lastp imported');
is(\&last_pairwise, \&List::Pairwise::last_pairwise, 'last_pairwise imported');
is(\&lastp, \&last_pairwise, 'lastp and last_pairwise are alias');

is(\&pair, \&List::Pairwise::pair, 'pair imported');