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
|
#!perl
##############################################################################
# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/99_pod_coverage.t $
# $Date: 2008-06-06 00:48:04 -0500 (Fri, 06 Jun 2008) $
# $Author: clonezone $
# $Revision: 2416 $
##############################################################################
use 5.006001;
use strict;
use warnings;
use Test::More;
eval 'use Test::Pod::Coverage 1.04'; ## no critic
plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD' if $@;
{
# HACK: Perl::Critic::Violation uses Pod::Parser to extract the
# DIAGNOSTIC section of the POD in each Policy module. This
# happens when the Policy first C<uses> the Violation module.
# Meanwhile, Pod::Coverage also uses Pod::Parser to extract the
# POD and compare it with the subroutines that are in the symbol
# table for that module. For reasons I cannot yet explain, using
# Pod::Parser twice this way causes the symbol table to get very
# wacky and this test script dies with "Can't call method 'OPEN'
# on IO::String at line 1239 of Pod/Parser.pm".
# For now, my workaround is to temporarily redefine the import()
# method in the Violation module so that it doesn't do any Pod
# parsing. I'll look for a better solution (or file a bug report)
# when / if I have better understanding of the problem.
no warnings;
require Perl::Critic::Violation;
*Perl::Critic::Violation::import = sub { 1 };
}
my @trusted_methods = get_trusted_methods();
my $method_string = join ' | ', @trusted_methods;
my $trusted_rx = qr{ \A (?: $method_string ) \z }x;
all_pod_coverage_ok( {trustme => [$trusted_rx]} );
#-----------------------------------------------------------------------------
sub get_trusted_methods {
return qw(
new
initialize_if_enabled
violates
applies_to
default_themes
default_maximum_violations_per_document
default_severity
supported_parameters
description
Fields
got_sigpipe
);
}
##############################################################################
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
|
