X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F92-pod-coverage.t;fp=t%2F92-pod-coverage.t;h=f9c77a5a9dc7351854cba723887c7b6ee0f0ee4c;hb=982694f9f93cdad187a51077b5e6c48a17792870;hp=0000000000000000000000000000000000000000;hpb=e3217cb5d83d1ae15f1795bef7c885740607689b;p=perl%2Fmodules%2FTest-Leaner.git

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
new file mode 100644
index 0000000..f9c77a5
--- /dev/null
+++ b/t/92-pod-coverage.t
@@ -0,0 +1,27 @@
+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({
+ also_private => [ qw<
+  NO_PLAN
+  SKIP_ALL
+  THREADSAFE
+  carp
+  croak
+  is_like
+  is_unlike
+  sanitize_comment
+ > ],
+});