add a test (that currently TODOs) to test for pod syntax
authorTony Cook <tony@develop-help.com>
Thu, 2 Aug 2012 06:49:28 +0000 (16:49 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 2 Aug 2012 06:49:28 +0000 (16:49 +1000)
MANIFEST
t/t98podcheck.t [new file with mode: 0644]

index e424975..fb74e86 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -883,6 +883,7 @@ t/t70thumbim.t
 t/t80catalog.t
 t/t85message.t
 t/t90dyncat.t
+t/t98podcheck.t
 t/tags/bse.cfg
 t/templater/00load.t
 t/templater/10token.t
diff --git a/t/t98podcheck.t b/t/t98podcheck.t
new file mode 100644 (file)
index 0000000..ed204c5
--- /dev/null
@@ -0,0 +1,13 @@
+#!perl -w
+use strict;
+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 = sort grep /\.(pm|pl|pod|PL)$/, keys %$manifest;
+plan tests => scalar(@pod);
+for my $file (@pod) {
+  local $TODO = "working on fixing these";
+  pod_file_ok($file, "pod ok in $file");
+}