File: 02pod_coverage.t

package info (click to toggle)
libjson-path-perl 1.0.6-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 692 kB
  • sloc: perl: 891; javascript: 62; sh: 3; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 319 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use XT::Util;
use Test::More;
use Test::Pod::Coverage;

plan skip_all => __CONFIG__->{skip_all}
	if __CONFIG__->{skip_all};

if ( __CONFIG__->{modules} )
{
	my @modules = @{ __CONFIG__->{modules} };
	pod_coverage_ok($_, "$_ is covered") for @modules;
	done_testing(scalar @modules);
}
else
{
	all_pod_coverage_ok();
}