DROLSKY / DateTime-1.66 / xt / author / pod-coverage.t 

            

              
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

              
#!perl
# This file was automatically generated by Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable 0.07.
use Test::Pod::Coverage 1.08;
use Test::More 0.88;
BEGIN {
    if ( $] <= 5.008008 ) {
        plan skip_all => 'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+';
    }
}
use Pod::Coverage::TrustPod;
my %skip = map { $_ => 1 } qw( DateTime::Conflicts DateTime::Helpers DateTime::PP DateTime::PPExtra );
my @modules;
for my $module ( all_modules() ) {
    next if $skip{$module};
    push @modules, $module;
}
plan skip_all => 'All the modules we found were excluded from POD coverage test.'
    unless @modules;
plan tests => scalar @modules;
my %trustme = (
             'DateTime' => [
                             qr/^[A-Z_]+$/,
                             qr/0$/,
                             qr/^STORABLE/,
                             qr/^utc_year$/,
                             qr/^timegm$/,
                             qr/^day_of_month$/,
                             qr/^doq$/,
                             qr/^dow$/,
                             qr/^doy$/,
                             qr/^iso8601$/,
                             qr/^local_rd_as_seconds$/,
                             qr/^mday$/,
                             qr/^min$/,
                             qr/^mon$/,
                             qr/^sec$/,
                             qr/^wday$/,
                             qr/^DefaultLanguage$/,
                             qr/^era$/,
                             qr/^language$/
                           ],
             'DateTime::Duration' => [
                                       qr/^[A-Z_]+$/
                                     ],
             'DateTime::Infinite' => [
                                       qr/^.+$/
                                     ]
           );
my @also_private;
for my $module ( sort @modules ) {
    pod_coverage_ok(
        $module,
        {
            coverage_class => 'Pod::Coverage::TrustPod',
            also_private   => \@also_private,
            trustme        => $trustme{$module} || [],
        },
        "pod coverage for $module"
    );
}
done_testing();