X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;ds=sidebyside;f=dev%2Fi386%2Flibpod-coverage-perl%2Flibpod-coverage-perl-0.19%2Ft%2F04cvgv.t;fp=dev%2Fi386%2Flibpod-coverage-perl%2Flibpod-coverage-perl-0.19%2Ft%2F04cvgv.t;h=1d6f6d8ebc2218ea63b10d9756f909fe742bde43;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hp=0000000000000000000000000000000000000000;hpb=df794b845212301ea0d267c919232538bfef356a;p=dh-make-perl

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
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' );