[p5sagit/p5-mst-13.2.git] / lib / Test / Harness / t / pod.t

BEGIN {
    eval "use Test::More";
    if ($@) {
	print "1..0 # SKIPPED: Test::More not installed.\n";
	exit;
    }
}

use File::Spec;
use File::Find;
use strict;

eval "use Test::Pod 0.95";

if ($@) {
    plan skip_all => "Test::Pod v0.95 required for testing POD";
} else {
    my @files;
    my $blib = File::Spec->catfile(qw(blib lib));
    find( sub {push @files, $File::Find::name if /\.p(l|m|od)$/}, $blib);
    plan tests => scalar @files;
    Test::Pod::pod_file_ok($_) foreach @files;
}
Commit	Line	Data
e8df9912	1	BEGIN {
	2	eval "use Test::More";
	3	if ($@) {
	4	print "1..0 # SKIPPED: Test::More not installed.\n";
	5	exit;
	6	}
	7	}
0bf5423d	8
	9	use File::Spec;
	10	use File::Find;
	11	use strict;
	12
	13	eval "use Test::Pod 0.95";
	14
	15	if ($@) {
	16	plan skip_all => "Test::Pod v0.95 required for testing POD";
	17	} else {
0bf5423d	18	my @files;
	19	my $blib = File::Spec->catfile(qw(blib lib));
	20	find( sub {push @files, $File::Find::name if /\.p(l\|m\|od)$/}, $blib);
	21	plan tests => scalar @files;
cf2ab31a	22	Test::Pod::pod_file_ok($_) foreach @files;
0bf5423d	23	}