[imager-screenshot.git] / t / 90pod.t

#!perl -w
use strict;
use Test::More;
use ExtUtils::Manifest qw(maniread);
eval "use Test::Pod 1.00;";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
my $manifest = maniread();
my @pod = grep /\.(pm|pl|pod|PL)$/, keys %$manifest;
plan tests => scalar(@pod);
for my $file (@pod) {
  pod_file_ok($file, "pod ok in $file");
}
Commit	Line	Data
0ddb7051 TC	1	#!perl -w
	2	use strict;
	3	use Test::More;
	4	use ExtUtils::Manifest qw(maniread);
	5	eval "use Test::Pod 1.00;";
	6	plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
	7	my $manifest = maniread();
	8	my @pod = grep /\.(pm\|pl\|pod\|PL)$/, keys %$manifest;
	9	plan tests => scalar(@pod);
	10	for my $file (@pod) {
	11	pod_file_ok($file, "pod ok in $file");
	12	}