t/03podcoverage.t.disabled

   1 use Test::More;
   2
   3 eval "use Test::Pod::Coverage 1.04";
   4 plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
   5 plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
   6
   7 my @modules = sort { $a cmp $b } (all_modules());
   8 plan tests => scalar(@modules);
   9
  10 my $exceptions = {
  11     'DBIx::Class' => {
  12         ignore => [
  13             qw/MODIFY_CODE_ATTRIBUTES
  14               component_base_class
  15               mk_classdata/
  16         ]
  17     },
  18     'DBIx::Class::ResultSetProxy'    => { skip => 1 },
  19     'DBIx::Class::ResultSourceProxy' => { skip => 1 },
  20     'DBIx::Class::Componentised'     => { skip => 1 },
  21 };
  22
  23 foreach my $module (@modules) {
  24   SKIP:
  25     {
  26         skip "No real methods", 1 if ($exceptions->{$module}{skip});
  27
  28         # build parms up from ignore list
  29         my $parms = {};
  30         $parms->{trustme} =
  31           [ map { qr/^$_$/ } @{ $exceptions->{$module}{ignore} } ]
  32           if exists($exceptions->{$module}{ignore});
  33
  34         # run the test with the potentially modified parm set
  35         pod_coverage_ok($module, $parms, "$module POD coverage");
  36     }
  37 }