Blame xt/author/pod-coverage.t
|
Packit |
92cec9 |
#!perl
|
|
Packit |
92cec9 |
# This file was automatically generated by Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable.
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
use Test::Pod::Coverage 1.08;
|
|
Packit |
92cec9 |
use Test::More 0.88;
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
BEGIN {
|
|
Packit |
92cec9 |
if ( $] <= 5.008008 ) {
|
|
Packit |
92cec9 |
plan skip_all => 'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+';
|
|
Packit |
92cec9 |
}
|
|
Packit |
92cec9 |
}
|
|
Packit |
92cec9 |
use Pod::Coverage::TrustPod;
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
my %skip = map { $_ => 1 } qw( );
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
my @modules;
|
|
Packit |
92cec9 |
for my $module ( all_modules() ) {
|
|
Packit |
92cec9 |
next if $skip{$module};
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
push @modules, $module;
|
|
Packit |
92cec9 |
}
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
plan skip_all => 'All the modules we found were excluded from POD coverage test.'
|
|
Packit |
92cec9 |
unless @modules;
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
plan tests => scalar @modules;
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
my %trustme = ();
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
my @also_private;
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
for my $module ( sort @modules ) {
|
|
Packit |
92cec9 |
pod_coverage_ok(
|
|
Packit |
92cec9 |
$module,
|
|
Packit |
92cec9 |
{
|
|
Packit |
92cec9 |
coverage_class => 'Pod::Coverage::TrustPod',
|
|
Packit |
92cec9 |
also_private => \@also_private,
|
|
Packit |
92cec9 |
trustme => $trustme{$module} || [],
|
|
Packit |
92cec9 |
},
|
|
Packit |
92cec9 |
"pod coverage for $module"
|
|
Packit |
92cec9 |
);
|
|
Packit |
92cec9 |
}
|
|
Packit |
92cec9 |
|
|
Packit |
92cec9 |
done_testing();
|