Commit | Line | Data |
2610e7a4 |
1 | use Test::More; |
2 | use File::Spec; |
3 | use File::Find; |
4 | use strict; |
5 | |
6 | BEGIN { chdir 't' if -d 't' }; |
7 | |
8 | eval 'use Test::Pod'; |
9 | plan skip_all => "Test::Pod v0.95 required for testing POD" |
10 | if $@ || $Test::Pod::VERSION < 0.95; |
11 | |
12 | plan skip_all => "Pod tests disabled under perl core" if $ENV{PERL_CORE}; |
13 | |
14 | my @files; |
15 | find( sub { push @files, File::Spec->catfile( |
16 | File::Spec->splitdir( $File::Find::dir ), $_ |
17 | ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) )); |
18 | |
19 | plan tests => scalar @files; |
20 | for my $file ( @files ) { |
21 | pod_file_ok( $file ); |
22 | } |
23 | |
24 | |