From 6d865c0038ca3a2abbc15926749ea4ae1b96a9b2 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 4 Oct 2017 23:25:52 +1300
Subject: 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`.
---
 xt/manifest.t     | 11 +++++++++++
 xt/pod-coverage.t | 20 ++++++++++++++++++++
 xt/pod.t          | 12 ++++++++++++
 3 files changed, 43 insertions(+)
 create mode 100644 xt/manifest.t
 create mode 100644 xt/pod-coverage.t
 create mode 100644 xt/pod.t

(limited to 'xt')

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();
-- 
cgit v1.2.3