[scpubgit/stemmatology.git] / 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 %mods;
map { $mods{$_} = 1 } all_modules();
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();
Commit	Line	Data
b49c4318	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
027d819c	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 ) {
06e7cbc7	26	pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } );
027d819c	27	}
027d819c	28
06e7cbc7	29	done_testing();