[urisagit/Perl-Docs.git] / t / pod_coverage.t

#!/usr/local/bin/perl

use Test::More;

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

all_pod_coverage_ok(
	{
		trustme =>	[
			'slurp',
			'O_APPEND',
			'O_BINARY',
			'O_CREAT',
			'O_EXCL',
			'O_RDONLY',
			'O_WRONLY',
			'SEEK_CUR',
			'SEEK_END',
			'SEEK_SET',
		],
	}
) ;
Commit	Line	Data
635c7876	1	#!/usr/local/bin/perl
	2
	3	use Test::More;
	4
	5	eval 'use Test::Pod::Coverage 1.04' ;
	6	plan skip_all =>
	7	'Test::Pod::Coverage 1.04 required for testing POD coverage' if $@ ;
	8
	9	all_pod_coverage_ok(
	10	{
	11	trustme => [
	12	'slurp',
	13	'O_APPEND',
	14	'O_BINARY',
	15	'O_CREAT',
	16	'O_EXCL',
	17	'O_RDONLY',
	18	'O_WRONLY',
	19	'SEEK_CUR',
	20	'SEEK_END',
	21	'SEEK_SET',
	22	],
	23	}
	24	) ;