[p5sagit/p5-mst-13.2.git] / ext / Archive-Tar / t / 99_pod.t

use Test::More;
use File::Spec;
use File::Find;
use strict;

BEGIN { chdir 't' if -d 't' };

eval 'use Test::Pod';
plan skip_all => "Test::Pod v0.95 required for testing POD"
    if $@ || $Test::Pod::VERSION < 0.95;
    
plan skip_all => "Pod tests disabled under perl core" if $ENV{PERL_CORE};    

my @files;
find( sub { push @files, File::Spec->catfile(
                    File::Spec->splitdir( $File::Find::dir ), $_
                ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) ));

plan tests => scalar @files;
for my $file ( @files ) {
    pod_file_ok( $file );
}
Commit	Line	Data
2610e7a4	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