From 6d865c0038ca3a2abbc15926749ea4ae1b96a9b2 Mon Sep 17 00:00:00 2001 From: Tom Ryder 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`. --- MANIFEST | 3 +++ xt/manifest.t | 11 +++++++++++ xt/pod-coverage.t | 20 ++++++++++++++++++++ xt/pod.t | 12 ++++++++++++ 4 files changed, 46 insertions(+) create mode 100644 xt/manifest.t create mode 100644 xt/pod-coverage.t create mode 100644 xt/pod.t 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(); -- cgit v1.2.3