git.maemo.org Git - pkg-perl/blob - deb-src/libpod-coverage-perl/libpod-coverage-perl-0.19/t/02simple.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Test::More tests => 33;
   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 => 'Simple1';
  12 isa_ok( $obj, 'Pod::Coverage' );
  13
  14 is( $obj->coverage, 2/3, "Simple1 has 2/3rds coverage");
  15
  16 $obj = new Pod::Coverage package => 'Simple2';
  17 isa_ok( $obj, 'Pod::Coverage' );
  18
  19 is( $obj->coverage, 0.75, "Simple2 has 75% coverage");
  20
  21 ok( eq_array([ $obj->naked ], [ 'naked' ]), "naked isn't covered");
  22
  23 ok( eq_array([ $obj->naked ], [ $obj->uncovered ]), "naked is uncovered");
  24
  25 $obj = new Pod::Coverage package => 'Simple2', private => [ 'naked' ];
  26 isa_ok( $obj, 'Pod::Coverage' );
  27
  28 is ( $obj->coverage, 1, "nakedness is a private thing" );
  29
  30 $obj = new Pod::Coverage package => 'Simple1', also_private => [ 'bar' ];
  31 isa_ok( $obj, 'Pod::Coverage' );
  32
  33 is ( $obj->coverage, 1, "it's also a private bar" );
  34
  35 ok( eq_array([ sort $obj->covered ], [ 'baz', 'foo' ]), "those guys are covered" );
  36
  37 $obj = new Pod::Coverage package => 'Pod::Coverage';
  38 isa_ok( $obj, 'Pod::Coverage' );
  39
  40 is( $obj->coverage, 1, "Pod::Coverage is covered" );
  41
  42 $obj = new Pod::Coverage package => 'Simple3';
  43 isa_ok( $obj, 'Pod::Coverage' );
  44
  45 is( $obj->coverage, 1, 'Simple3 is covered' );
  46
  47 $obj = new Pod::Coverage package => 'Simple4';
  48 isa_ok( $obj, 'Pod::Coverage' );
  49
  50 is( $obj->coverage, 1, "External .pod grokked" );
  51
  52 $obj = new Pod::Coverage package => 'Simple5';
  53 isa_ok( $obj, 'Pod::Coverage' );
  54
  55 is( $obj->coverage, 1, "Multiple docs per item works" );
  56
  57 $obj = new Pod::Coverage package => "Simple6";
  58 isa_ok( $obj, 'Pod::Coverage' );
  59
  60 is( $obj->coverage, 1/3, "Simple6 is 2/3rds with no extra effort" );
  61
  62 $obj = new Pod::Coverage::ExportOnly package => "Simple6";
  63 isa_ok( $obj, 'Pod::Coverage' );
  64
  65 is( $obj->coverage, 1/2, "Simple6 is 50% if you only check exports" );
  66
  67 $obj = new Pod::Coverage package => "Simple8";
  68 isa_ok( $obj, 'Pod::Coverage' );
  69
  70 is( $obj->coverage,    undef, "can't deduce for Simple8" );
  71 is( $obj->why_unrated, 'no public symbols defined', 'why is correct' );
  72
  73 $obj = Pod::Coverage->new( package => 'Earle' );
  74 is( $obj->coverage, 1, "earle is covered" );
  75 is( scalar $obj->covered, 2 );
  76
  77 $obj = Pod::Coverage->new( package => 'Args' );
  78 is( $obj->coverage, 1, "Args is covered" );
  79
  80 $obj = Pod::Coverage->new( package => 'XS4ALL' );
  81 is( $obj->coverage, 1, "XS4ALL is covered" );
  82
  83 $obj = Pod::Coverage->new( package => 'Fully::Qualified' );
  84 is( $obj->coverage, 1, "Fully::Qualified is covered" );