Adding upstream version 2.117.0.upstream/2.117.0upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

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