1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
# -*- cperl -*-
#$Id: 99_pod.t,v 1.1.1.1 2003/09/10 18:29:36 cwest Exp $
=pod
Testing that the POD in all the Perl code is formatted correctly.
=cut
use Test::More;
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 {
Test::Pod->import;
my @files;
my $blib = File::Spec->catfile(qw(blib lib));
find(
sub {
push @files, $File::Find::name if /\.(?:p(?:l|m|od)|t)$/;
},
$blib,
( -e 't' && -d _ ? 't' : () )
);
plan tests => scalar @files;
foreach my $file (@files) {
pod_file_ok($file);
}
}
|
