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
|
#!/usr/bin/perl
#
# Test POD formatting. Taken essentially verbatim from the examples in the
# Test::Pod documentation.
use strict;
use warnings;
use Const::Fast;
use Test::More;
plan skip_all => 'Not needed for coverage of Lintian'
if $ENV{'LINTIAN_COVERAGE'};
eval 'use Test::Pod 1.00';
const my $DOT => q{.};
my $dir = $ENV{'LINTIAN_BASE'} // $DOT;
my @POD_SOURCES = grep { -e } (
"$dir/lib",
"$dir/doc/tutorial",
"$dir/man/lintian.pod",
"$dir/man/lintian-annotate-hints.pod",
"$dir/man/lintian-explain-tags.pod",
);
my @POD_FILES = all_pod_files(@POD_SOURCES);
all_pod_files_ok(@POD_FILES);
# Local Variables:
# indent-tabs-mode: nil
# cperl-indent-level: 4
# End:
# vim: syntax=perl sw=4 sts=4 sr et
|
