Merge branch 'master' of github.com:tla/stemmatology
[scpubgit/stemmatology.git] / t / 03podcoverage.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use Test::More;
5
6 eval "use Test::Pod::Coverage 1.04";
7 plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
8 plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
9
10 my %mods;
11 map { $mods{$_} = 1 } all_modules();
12 if( -e 'MANIFEST.SKIP' ) {
13         open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open skip file";
14         while(<SKIP>) {
15                 chomp;
16                 next unless /^lib/;
17                 s/^lib\///;
18                 s/\.pm//;
19                 s/\//::/g;
20                 delete $mods{$_};
21         }
22         close SKIP;
23 }
24                 
25 foreach my $mod ( keys %mods ) {
26         pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } );
27 }
28
29 done_testing();