diff options
Diffstat (limited to '')
-rwxr-xr-x | t/scripts/pod.t | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/t/scripts/pod.t b/t/scripts/pod.t new file mode 100755 index 0000000..2b50e43 --- /dev/null +++ b/t/scripts/pod.t @@ -0,0 +1,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 |