git.maemo.org Git - pkg-perl/blob - deb-src/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/pod-coverage.t

   1 use Test::More;
   2
   3 my $min_tpc = 1.08;
   4 eval "use Test::Pod::Coverage $min_tpc";
   5 plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
   6     if $@;
   7
   8 my $min_pc = 0.17;
   9 eval "use Pod::Coverage $min_pc";
  10 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
  11     if $@;
  12
  13 my @modules = all_modules('lib');
  14
  15 plan tests => scalar @modules;
  16
  17 for my $mod ( @modules ) {
  18     my $doc = "lib/$mod\.pod";
  19     $doc =~ s{::}{/}g;
  20     pod_coverage_ok( $mod, { pod_from => $doc } );
  21 }
  22