git.maemo.org Git - dh-make-perl/blob - dev/arm/libpod-coverage-perl/libpod-coverage-perl-0.19/t/06trustme.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Test::More tests => 10;
   4 use lib 't/lib';
   5
   6 BEGIN {
   7     use_ok( 'Pod::Coverage' );
   8     use_ok( 'Pod::Coverage::ExportOnly' );
   9 }
  10
  11 my $obj = new Pod::Coverage package => 'Trustme';
  12 isa_ok( $obj, 'Pod::Coverage' );
  13 is($obj->coverage, 3/7, "without private or trustme it gets it right");
  14
  15 $obj = new Pod::Coverage package => 'Trustme', private => [qr/^private$/];
  16 isa_ok( $obj, 'Pod::Coverage' );
  17 is($obj->coverage, 3/6, "with just private it gets it right");
  18
  19 $obj = new Pod::Coverage
  20     package => 'Trustme',
  21     private => [qr/^private$/],
  22     trustme => [qr/u/];
  23 isa_ok( $obj, 'Pod::Coverage' );
  24 is($obj->coverage, 5/6, "with private and trustme it gets it right");
  25
  26 $obj = new Pod::Coverage
  27     package => 'Trustme',
  28     trustme => [qr/u/];
  29 isa_ok( $obj, 'Pod::Coverage' );
  30 is($obj->coverage, 5/7, "with just trustme it gets it right");