Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libpod-coverage-perl / libpod-coverage-perl-0.19 / t / 04cvgv.t

diff --git a/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/04cvgv.t b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/04cvgv.t
new file mode 100644 (file)
index 0000000..1d6f6d8
--- /dev/null
+++ b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/04cvgv.t
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 4;
+use Pod::Coverage ();
+
+my $pc = Pod::Coverage->new();
+isa_ok( $pc, 'Pod::Coverage' );
+
+package wibble;
+sub bar {};
+package main;
+sub foo {}
+sub baz::baz {};
+*bar = \&wibble::bar;
+*baz = \&baz::baz;
+
+is ( $pc->_CvGV(\&foo), '*main::foo',   'foo checks out' );
+is ( $pc->_CvGV(\&bar), '*wibble::bar', 'bar looks right' );
+is ( $pc->_CvGV(\&baz), '*baz::baz',    'baz too' );