aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2017-10-04 23:25:52 +1300
committerTom Ryder <tom@sanctum.geek.nz>2017-10-04 23:25:52 +1300
commit6d865c0038ca3a2abbc15926749ea4ae1b96a9b2 (patch)
tree2e371af27216c4a4ec69108a2a46799c3f067802
parentAdd Changes to MANIFEST, too (diff)
downloadList-Breakdown-6d865c0038ca3a2abbc15926749ea4ae1b96a9b2.tar.gz
List-Breakdown-6d865c0038ca3a2abbc15926749ea4ae1b96a9b2.zip
Move some author testing into xt
I like the POD and MANIFEST author tests that module-starter(1p) made for me, but I don't like the env variable invocation for them much. I've put them in xt instead so I can do `prove xt`.
-rw-r--r--MANIFEST3
-rw-r--r--xt/manifest.t11
-rw-r--r--xt/pod-coverage.t20
-rw-r--r--xt/pod.t12
4 files changed, 46 insertions, 0 deletions
diff --git a/MANIFEST b/MANIFEST
index 2fa6089..36266c9 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -5,3 +5,6 @@ MANIFEST
README
t/errors.t
t/words.t
+xt/manifest.t
+xt/pod-coverage.t
+xt/pod.t
diff --git a/xt/manifest.t b/xt/manifest.t
new file mode 100644
index 0000000..9df8859
--- /dev/null
+++ b/xt/manifest.t
@@ -0,0 +1,11 @@
+#!perl -T
+use 5.006;
+use strict;
+use warnings;
+use Test::More;
+
+my $min_tcm = 0.9;
+eval "use Test::CheckManifest $min_tcm";
+plan skip_all => "Test::CheckManifest $min_tcm required" if $@;
+
+ok_manifest();
diff --git a/xt/pod-coverage.t b/xt/pod-coverage.t
new file mode 100644
index 0000000..1b874ca
--- /dev/null
+++ b/xt/pod-coverage.t
@@ -0,0 +1,20 @@
+#!perl -T
+use 5.006;
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod::Coverage
+my $min_tpc = 1.08;
+eval "use Test::Pod::Coverage $min_tpc";
+plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
+ if $@;
+
+# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
+# but older versions don't recognize some common documentation styles
+my $min_pc = 0.18;
+eval "use Pod::Coverage $min_pc";
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+ if $@;
+
+all_pod_coverage_ok();
diff --git a/xt/pod.t b/xt/pod.t
new file mode 100644
index 0000000..cf2dce4
--- /dev/null
+++ b/xt/pod.t
@@ -0,0 +1,12 @@
+#!perl -T
+use 5.006;
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();