1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#! /usr/bin/perl
BEGIN {
unless ($ENV{RELEASE_TESTING}) {
require Test::More;
Test::More::plan(skip_all => 'these tests are for release candidate testing');
}
}
#---------------------------------------------------------------------
use Test::More;
eval "use Test::Pod::Coverage 1.08; 1"
or plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage";
eval "use Pod::Coverage::TrustPod 0.100001; 1"
or plan skip_all => "Pod::Coverage::TrustPod 0.100001 required for testing POD coverage";
my $opts = { coverage_class => 'Pod::Coverage::TrustPod' };
plan tests => 4;
pod_coverage_ok('PostScript::File', $opts);
pod_coverage_ok('PostScript::File::Functions', $opts);
pod_coverage_ok('PostScript::File::Metrics', $opts);
pod_coverage_ok('PostScript::File::Metrics::Loader', $opts);
|
