Add author tests

diff --git a/MANIFEST b/MANIFEST
index eeab173f9767eb513cc0fb878af869395e25dc42..0acafdfd75c201fa1adff6759588df6ab3d484aa 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -36,4 +36,8 @@ t/50-num_buff/LENGTH.t
 t/50-num_buff/STORE.t
 t/60-taint/rx.t
 t/60-taint/util.t
+t/90-author/kwalitee.t
+t/90-author/portability-files.t
+t/90-author/pod.t
+t/90-author/pod-coverage.t
 typemap

diff --git a/Plugin.pod b/Plugin.pod
index 7fda6f78d2fa14303d51db1ed580d964d7ecde9f..4bb2674022e294bd3e335abea4c0141a8d901c7b 100644 (file)
--- a/Plugin.pod
+++ b/Plugin.pod
@@ -185,6 +185,10 @@ called at all.
 The length specified will be used as a a byte length (using
 L<SvPV|perlapi/SvPV>), not a character length.
 
+=head2 nparens
+
+=head2 gofs
+
 =head2 callbacks
 
     # A dumb regexp engine that just tests string equality

diff --git a/t/90-author/kwalitee.t b/t/90-author/kwalitee.t
new file mode 100644 (file)
index 0000000..7775e60
--- /dev/null
+++ b/t/90-author/kwalitee.t
@@ -0,0 +1,9 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval { require Test::Kwalitee; Test::Kwalitee->import() };
+plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;

diff --git a/t/90-author/pod-coverage.t b/t/90-author/pod-coverage.t
new file mode 100644 (file)
index 0000000..8c00d87
--- /dev/null
+++ b/t/90-author/pod-coverage.t
@@ -0,0 +1,18 @@
+#!perl -T
+
+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/ENGINE unimport/ ] });

diff --git a/t/90-author/pod.t b/t/90-author/pod.t
new file mode 100644 (file)
index 0000000..ee8b18a
--- /dev/null
+++ b/t/90-author/pod.t
@@ -0,0 +1,12 @@
+#!perl -T
+
+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();

diff --git a/t/90-author/portability-files.t b/t/90-author/portability-files.t
new file mode 100644 (file)
index 0000000..ab541f3
--- /dev/null
+++ b/t/90-author/portability-files.t
@@ -0,0 +1,10 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Portability::Files";
+plan skip_all => "Test::Portability::Files required for testing filenames portability" if $@;
+run_tests();