ext/Archive-Tar/t/99_pod.t

   1 use Test::More;
   2 use File::Spec;
   3 use File::Find;
   4 use strict;
   5
   6 BEGIN { chdir 't' if -d 't' };
   7
   8 eval 'use Test::Pod';
   9 plan skip_all => "Test::Pod v0.95 required for testing POD"
  10     if $@ || $Test::Pod::VERSION < 0.95;
  11
  12 plan skip_all => "Pod tests disabled under perl core" if $ENV{PERL_CORE};
  13
  14 my @files;
  15 find( sub { push @files, File::Spec->catfile(
  16                     File::Spec->splitdir( $File::Find::dir ), $_
  17                 ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) ));
  18
  19 plan tests => scalar @files;
  20 for my $file ( @files ) {
  21     pod_file_ok( $file );
  22 }
  23
  24