From: Vincent Pit 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), 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();