xt/03_pod_coverage.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 plan skip_all => 'TODO';
   9
  10 eval "use Test::Pod::Coverage 1.04";
  11 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
  12
  13 # This is a stripped down version of all_pod_coverage_ok which lets us
  14 # vary the trustme parameter per module.
  15 my @modules = all_modules();
  16 plan tests => scalar @modules;
  17
  18 my %trustme = (
  19     'Mouse::Meta::Module' => [
  20     ],
  21
  22     'Mouse::Meta::Class'  => [
  23         qw(
  24             get_method_body
  25             superclasses
  26             clone_instance
  27          )
  28     ],
  29     'Mouse::Meta::Attribute' => [
  30         qw(
  31             interpolate_class
  32             throw_error
  33             create
  34             get_parent_args
  35             verify_type_constraint
  36             canonicalize_args
  37             coerce_constraint
  38          )
  39     ],
  40     'Mouse::Meta::Method'                  => [],
  41     'Mouse::Meta::Method::Accessor'        => [],
  42     'Mouse::Meta::Method::Constructor'     => [],
  43     'Mouse::Meta::Method::Destructor'      => [],
  44     'Mouse::Meta::Role'                    => [],
  45     'Mouse::Meta::Role::Composite' =>
  46         [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
  47     'Mouse::Role' => [
  48         qw( after
  49             around
  50             augment
  51             before
  52             extends
  53             has
  54             inner
  55             override
  56             super
  57             with )
  58     ],
  59     'Mouse::Meta::TypeConstraint'      => [
  60         qw(
  61             compile_type_constraint
  62             parameterize
  63         )
  64     ],
  65     'Mouse::Util'                      => [
  66         qw(
  67             generate_isa_predicate_for
  68             does dump meta
  69         )
  70     ],
  71     'Mouse::Util::TypeConstraints'     => [
  72         qw(typecast_constraints)
  73      ],
  74
  75     'Mouse::Exporter' => [
  76         qw(
  77             do_import do_unimport
  78         )
  79     ],
  80     'Mouse::Spec'         => ['.+'],
  81     'Squirrel'            => ['.+'],
  82     'Squirrel::Role'      => ['.+'],
  83     'Mouse::TypeRegistry' => ['.+'],
  84 );
  85
  86 for my $module ( sort @modules ) {
  87     my $trustme = [];
  88     if ( $trustme{$module} ) {
  89         my $methods = join '|', @{ $trustme{$module} };
  90         $trustme = [qr/^(?:$methods)$/];
  91     }
  92
  93     pod_coverage_ok(
  94         $module, { trustme => $trustme },
  95         "Pod coverage for $module"
  96     );
  97 }