37 lines
666 B
Perl
37 lines
666 B
Perl
|
use Test::More;
|
||
|
|
|
||
|
|
# Check our Pod
|
||
|
|
# The test was provided by Andy Lester,
|
||
|
|
# who stole it from Brian D. Foy
|
||
|
|
# Thanks to both !
|
||
|
|
|
||
|
|
use File::Spec;
|
||
|
|
use File::Find;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
eval {
|
||
|
|
require Test::Pod;
|
||
|
|
Test::Pod->import;
|
||
|
|
};
|
||
|
|
|
||
|
|
my @files;
|
||
|
|
|
||
|
|
if ($@) {
|
||
|
|
plan skip_all => "Test::Pod required for testing POD";
|
||
|
|
}
|
||
|
|
elsif ($Test::Pod::VERSION < 0.95) {
|
||
|
|
plan skip_all => "Test::Pod 0.95 required for testing POD";
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
my $blib = File::Spec->catfile(qw(blib lib));
|
||
|
|
find(\&wanted, grep { -d } ($blib, 'bin'));
|
||
|
|
plan tests => scalar @files;
|
||
|
|
foreach my $file (@files) {
|
||
|
|
pod_file_ok($file);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub wanted {
|
||
|
|
push @files, $File::Find::name if /\.p(l|m|od)$/;
|
||
|
|
}
|