Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-pod-coverage-perl / libtest-pod-coverage-perl-1.08 / t / alt_class.t

diff --git a/dev/i386/libtest-pod-coverage-perl/libtest-pod-coverage-perl-1.08/t/alt_class.t b/dev/i386/libtest-pod-coverage-perl/libtest-pod-coverage-perl-1.08/t/alt_class.t
new file mode 100644 (file)
index 0000000..83801b0
--- /dev/null
+++ b/dev/i386/libtest-pod-coverage-perl/libtest-pod-coverage-perl-1.08/t/alt_class.t
@@ -0,0 +1,21 @@
+#!perl -T
+
+use strict;
+use lib "t";
+use Test::More tests=>2;
+use Test::Builder::Tester;
+
+BEGIN { use_ok( 'Test::Pod::Coverage' ); }
+
+# the follow test checks that PC_Inherits.pm is fully covered, which it is not
+# -- unless you count the documentation of its parent, PC_Inherited; we do this
+# with the Pod::Coverage::CountParents subclass of Pod::Coverage -- so, if this
+# test passes, it means the subclass was, in fact, used
+test_out( "ok 1 - Checking PC_Inherits" );
+pod_coverage_ok(
+  "PC_Inherits",
+  { coverage_class => 'Pod::Coverage::CountParents' },
+  "Checking PC_Inherits",
+);
+
+test_test( "allows alternate Pod::Coverage class" );