use strict;
use warnings;
use Test::More;
BEGIN {
@::warn = ();
$SIG{__WARN__} = sub {push @::warn, @_} unless $::NO_PLAN;
}
use List::Pairwise ();
unless ($::NO_PLAN) {
plan tests => 3;
List::Pairwise::mapp {$a, $b} (1..10);
ok("@::warn", 'warnings for $a and $b when not used in module but not imported');
for (0, 1) {
like($::warn[$_], qr/Name "main::([ab])" used only once: possible typo at /, "warning $_");
}
}