test for pod correctness

[perl/plp/.git] / t / pod.t

diff --git a/t/pod.t b/t/pod.t
new file mode 100644 (file)
index 0000000..f4d0ec1
--- /dev/null
+++ b/t/pod.t
@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+
+use Test::More;
+use ExtUtils::Manifest qw(maniread);
+eval 'use Test::Pod 1.00';
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+
+my $manifest = maniread();
+my @pod = grep /\.(?:pm|pod)$/, keys %$manifest;
+plan tests => scalar @pod;
+pod_file_ok($_ => $_) for @pod;
+