package LMU::Test::ab;
use strict;
BEGIN
{
$| = 1;
}
use Test::More;
use List::MoreUtils 'pairwise';
sub run_tests
{
test_ab();
done_testing();
}
sub test_ab
{
my @A = ( 1, 2, 3, 4, 5 );
my @B = ( 2, 4, 6, 8, 10 );
my @C = pairwise { $a + $b } @A, @B;
is_deeply( \@C, [ 3, 6, 9, 12, 15 ], "pw1" );
}
1;