moved pod tsts
[gitmo/MooseX-ClassAttribute.git] / xt / release / pod-coverage.t
CommitLineData
4dee0fd3 1use strict;
2use warnings;
3
4use Test::More;
5
7a4a3b1e 6eval "use Test::Pod::Coverage 1.04";
a6527818 7plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
8 if $@;
4dee0fd3 9
7a4a3b1e 10# This is a stripped down version of all_pod_coverage_ok which lets us
11# vary the trustme parameter per module.
12my @modules = all_modules();
13plan tests => scalar @modules;
4dee0fd3 14
7ce70009 15my %trustme = (
16 'MooseX::ClassAttribute' => [ 'init_meta', 'class_has' ],
4cbcd0f0 17 'MooseX::ClassAttribute::Meta::Method::Accessor' => ['.+'],
18 'MooseX::ClassAttribute::Meta::Role::Attribute' => ['new'],
7ce70009 19 'MooseX::ClassAttribute::Trait::Class' =>
20 ['compute_all_applicable_class_attributes'],
4cbcd0f0 21 'MooseX::ClassAttribute::Trait::Mixin::HasClassAttributes' => [
22 qw( add_class_attribute get_class_attribute_map remove_class_attribute )
23 ],
7ce70009 24);
25
26for my $module ( sort @modules ) {
7a4a3b1e 27 my $trustme;
28
7ce70009 29 if ( $trustme{$module} ) {
5761254f 30 my $methods = join '|', @{ $trustme{$module} };
7ce70009 31 $trustme = [qr/^(?:$methods)/];
7a4a3b1e 32 }
4dee0fd3 33
7ce70009 34 pod_coverage_ok(
35 $module, { trustme => $trustme },
36 "Pod coverage for $module"
37 );
7a4a3b1e 38}