check pod and pod coverage
authorTony Cook <tony@develop-help.com>
Mon, 1 Jan 2007 04:55:34 +0000 (04:55 +0000)
committerTony Cook <tony@develop-help.com>
Mon, 1 Jan 2007 04:55:34 +0000 (04:55 +0000)
t/90pod.t [new file with mode: 0644]
t/91podcover.t [new file with mode: 0644]

diff --git a/t/90pod.t b/t/90pod.t
new file mode 100644 (file)
index 0000000..00c66f0
--- /dev/null
+++ b/t/90pod.t
@@ -0,0 +1,12 @@
+#!perl -w\r
+use strict;\r
+use Test::More;\r
+use ExtUtils::Manifest qw(maniread);\r
+eval "use Test::Pod 1.00;";\r
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;\r
+my $manifest = maniread();\r
+my @pod = grep /\.(pm|pl|pod|PL)$/, keys %$manifest;\r
+plan tests => scalar(@pod);\r
+for my $file (@pod) {\r
+  pod_file_ok($file, "pod ok in $file");\r
+}\r
diff --git a/t/91podcover.t b/t/91podcover.t
new file mode 100644 (file)
index 0000000..5203d3b
--- /dev/null
@@ -0,0 +1,8 @@
+#!perl -w\r
+use strict;\r
+use Test::More;\r
+eval "use Test::Pod::Coverage;";\r
+plan skip_all => "Test::Pod::Coverage required for POD coverage" if $@;\r
+\r
+plan tests => 1;\r
+pod_coverage_ok('Imager::Screenshot');\r