[p5sagit/p5-mst-13.2.git] / ext / Digest / SHA / t / 0-pod-coverage.t

BEGIN {
	if ($ENV{PERL_CORE}) {
		chdir 't' if -d 't';
		@INC = '../lib';
	}
}

BEGIN {
	eval "use Test::More";
	if ($@) {
		print "1..0 # Skipped: Test::More not installed\n";
		exit;
	}
}

eval "use Test::Pod::Coverage 0.08";
plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD coverage" if $@;

my @privfcns = qw(
	Addfile
	Hexdigest
	B64digest
	shaclose
	shadump
	shadup
	shaload
	shaopen
	sharewind
	shawrite
);

all_pod_coverage_ok( { also_private => \@privfcns } );
Commit	Line	Data
6bc89f92	1	BEGIN {
77d2a621	2	if ($ENV{PERL_CORE}) {
	3	chdir 't' if -d 't';
	4	@INC = '../lib';
	5	}
	6	}
	7
	8	BEGIN {
6bc89f92	9	eval "use Test::More";
	10	if ($@) {
	11	print "1..0 # Skipped: Test::More not installed\n";
	12	exit;
	13	}
	14	}
	15
	16	eval "use Test::Pod::Coverage 0.08";
	17	plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD coverage" if $@;
	18
	19	my @privfcns = qw(
77d2a621	20	Addfile
	21	Hexdigest
	22	B64digest
6bc89f92	23	shaclose
77d2a621	24	shadump
	25	shadup
	26	shaload
	27	shaopen
	28	sharewind
6bc89f92	29	shawrite
	30	);
	31
	32	all_pod_coverage_ok( { also_private => \@privfcns } );