r44074 - in /scripts/KGB: debian/control t/pod-coverage.t t/pod.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Sep 13 20:36:59 2009
New Revision: 44074

URL: http://svn.debian.org/wsvn/?sc=1&rev=44074
Log:
add POD and POD coverage tests

Added:
    scripts/KGB/t/pod-coverage.t
    scripts/KGB/t/pod.t
Modified:
    scripts/KGB/debian/control

Modified: scripts/KGB/debian/control
URL: http://svn.debian.org/wsvn/scripts/KGB/debian/control?rev=44074&op=diff
==============================================================================
--- scripts/KGB/debian/control (original)
+++ scripts/KGB/debian/control Sun Sep 13 20:36:59 2009
@@ -11,6 +11,8 @@
  libproc-pid-file-perl,
  libsvn-perl,
  libtest-compile-perl,
+ libtest-pod-coverage-perl,
+ libtest-pod-perl,
  libyaml-perl
 Vcs-Svn: svn://svn.debian.org/pkg-perl/scripts/KGB/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/scripts/KGB/

Added: scripts/KGB/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/scripts/KGB/t/pod-coverage.t?rev=44074&op=file
==============================================================================
--- scripts/KGB/t/pod-coverage.t (added)
+++ scripts/KGB/t/pod-coverage.t Sun Sep 13 20:36:59 2009
@@ -1,0 +1,18 @@
+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();

Added: scripts/KGB/t/pod.t
URL: http://svn.debian.org/wsvn/scripts/KGB/t/pod.t?rev=44074&op=file
==============================================================================
--- scripts/KGB/t/pod.t (added)
+++ scripts/KGB/t/pod.t Sun Sep 13 20:36:59 2009
@@ -1,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();