blob: 45be965f0402737beff543f77c2137b396107ed2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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 );
}
|
