20 lines
414 B
Perl
20 lines
414 B
Perl
use Test::More;
|
|
eval "use Test::Pod 1.00";
|
|
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
|
|
|
|
my @dir_from = ('t');
|
|
if (!$ENV{HARNESS_ACTIVE}) {
|
|
# perl Build test or make test run from top-level dir.
|
|
if ( -d '../t/' ) {
|
|
@dir_from = ('../lib/');
|
|
}
|
|
}
|
|
|
|
my @files = all_pod_files(@dir_from);
|
|
|
|
plan tests => scalar(@files);
|
|
|
|
foreach my $module (@files){
|
|
pod_file_ok( $module )
|
|
}
|