Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libsub-uplevel-perl / libsub-uplevel-perl-0.1901 / xt / pod-coverage.t

diff --git a/dev/i386/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/pod-coverage.t b/dev/i386/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/pod-coverage.t
new file mode 100644 (file)
index 0000000..4adafe3
--- /dev/null
+++ b/dev/i386/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/pod-coverage.t
@@ -0,0 +1,22 @@
+use Test::More;
+
+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 $@;
+
+my $min_pc = 0.17;
+eval "use Pod::Coverage $min_pc";
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+    if $@;
+
+my @modules = all_modules('lib');
+
+plan tests => scalar @modules; 
+
+for my $mod ( @modules ) {
+    my $doc = "lib/$mod\.pod";
+    $doc =~ s{::}{/}g;
+    pod_coverage_ok( $mod, { pod_from => $doc } );
+}
+