view release on metacpan or  search on metacpan

xt/21_run.t  view on Meta::CPAN

);

my @found = findallmod 'Test::SNMP::Info';
unshift @found, 'Test::SNMP::Info';

# pass a specific module to test,
# using e.g. "prove xt/21_run.t :: Test::SNMP::Info::MAU"
if (scalar @ARGV) { @found = @ARGV }

# cannot do this inline with findallmod
@found = sort { (scalar split m/::/, $a) <=> (scalar split m/::/, $b)
                    or
                $a cmp $b } @found;
                
# my $total = scalar @found - scalar @BAD_MODULES;
# this did not work because @found can be a subset (e.g. via ARGV), so subtracting
# all BAD modules (even those not in @found) makes the TAP plan incorrect.
# the below seems to work correctly for the hand-picked usage like
#  prove  xt/21_run.t ::  Test::SNMP::Info::Layer7::Stormshield
my $total = scalar grep {
  my $m = $_;