git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/xt/author/pod-coverage.t

   1 #!perl -w
   2
   3 use strict;
   4 use lib 't/lib';
   5
   6 use Test::More;
   7
   8 # TODO skip on install?
   9 eval "use Test::Pod::Coverage 1.04";
  10 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
  11   if $@;
  12
  13 # this isn't perfect, but it's close enough
  14 my @deprecated = qw(
  15   actual_passed
  16   good_plan
  17   passed
  18 );
  19
  20 local $^W;    # we want it to ignore 'Test::Builder::failure_output redefined'
  21 all_pod_coverage_ok( { trustme => \@deprecated } );