From: Vincent Pit <vince@profvince.com>
Date: Sat, 29 Aug 2009 16:40:46 +0000 (+0200)
Subject: Add author tests
X-Git-Tag: v0.08~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=686fea1f34b041af100934b062781594ee5bc8b5;p=perl%2Fmodules%2Fre-engine-Plugin.git

Add author tests
---

diff --git a/MANIFEST b/MANIFEST
index eeab173..0acafdf 100644
--- 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 7fda6f7..4bb2674 100644
--- 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
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
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
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
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();