Add apparatus codicum support and witness long-identifier support to CTE parser....

[scpubgit/stemmatology.git] / base / t / 03podcoverage.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

eval "use Test::Pod::Coverage 1.04";
plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};

my @exclude = qw/ Collation::Data /;

my %mods;
map { $mods{$_} = 1 } all_modules();
map { delete $mods{'Text::Tradition::'.$_} } @exclude;
if( -e 'MANIFEST.SKIP' ) {
	open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open skip file";
	while(<SKIP>) {
		chomp;
		next unless /^lib/;
		s/^lib\///;
		s/\.pm//;
		s/\//::/g;
		delete $mods{$_};
	}
	close SKIP;
}
		
foreach my $mod ( keys %mods ) {
	pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } );
}

done_testing();