git.maemo.org Git - dh-make-perl/blob - dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/04cvgv.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Test::More tests => 4;
   4 use Pod::Coverage ();
   5
   6 my $pc = Pod::Coverage->new();
   7 isa_ok( $pc, 'Pod::Coverage' );
   8
   9 package wibble;
  10 sub bar {};
  11 package main;
  12 sub foo {}
  13 sub baz::baz {};
  14 *bar = \&wibble::bar;
  15 *baz = \&baz::baz;
  16
  17 is ( $pc->_CvGV(\&foo), '*main::foo',   'foo checks out' );
  18 is ( $pc->_CvGV(\&bar), '*wibble::bar', 'bar looks right' );
  19 is ( $pc->_CvGV(\&baz), '*baz::baz',    'baz too' );