vcs.maemo.org Git - pkg-perl/blob - deb-src/libpod-coverage-perl/libpod-coverage-perl-0.19/t/05parentage.t

   1 #!perl -w
   2 use strict;
   3 use lib 't/lib';
   4
   5 use Test::More tests => 5;
   6
   7 BEGIN {
   8     use_ok( 'Pod::Coverage::CountParents' );
   9 }
  10
  11 my $pc = Pod::Coverage::CountParents->new(package => 'Child');
  12 isa_ok( $pc, 'Pod::Coverage::CountParents' );
  13
  14 is( $pc->coverage, 1, 'picked up parent docs' );
  15
  16 $pc = Pod::Coverage::CountParents->new(package => 'Sibling');
  17 isa_ok( $pc, 'Pod::Coverage::CountParents' );
  18
  19 is( $pc->coverage, 1, 'picked up grandparent docs' );