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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
eval 'use Test::Pod::Coverage';
plan skip_all => 'Test::Pod::Coverage is required for testing POD coverage'
if $@;
# Association of modules to check with additional regexes of private symbols.
# If one is inclined, one can consider the presence of regexes as a TODO to
# add underscores; personally, I (rra) think they make the code hard to read.
our %MODULES =
(
'Lintian::CheckScript' => [],
'Lintian::Collect' => [],
'Lintian::Collect::Group' => [],
'Lintian::Command' => [],
'Lintian::Command::Simple' => [],
'Lintian::Data' => [],
'Lintian::DepMap' => [],
'Lintian::DepMap::Properties' => [],
'Lintian::Lab' => [],
'Lintian::Lab::Entry' => [],
'Lintian::Lab::Manifest' => [],
'Lintian::Lab::ManifestDiff' => [],
'Lintian::Profile' => [],
'Lintian::Processable' => [],
'Lintian::ProcessableGroup' => [],
'Lintian::ProcessablePool' => [],
'Lintian::Relation' => [ qr/^parse_element$/,
qr/^implies_(element|array)/ ],
'Lintian::Relation::Version' => [ qr/^compare$/ ],
'Lintian::Tags' => [],
'Lintian::Tag::Info' => [],
'Lintian::Tag::Override' => [],
);
# TODO:
# Lintian::Collect::Binary
# Lintian::Collect::Source
# Lintian::Output
# Lintian::Output::ColonSeparated
# Lintian::Output::LetterQualifier
# Lintian::Output::XML
plan tests => scalar keys(%MODULES);
# Ensure the following modules are documented:
for my $module (sort keys %MODULES) {
pod_coverage_ok($module, { also_private => $MODULES{$module} },
"$module is covered");
}
|
