git.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-coverage-perl/libtest-pod-coverage-perl-1.08/t/alt_class.t

   1 #!perl -T
   2
   3 use strict;
   4 use lib "t";
   5 use Test::More tests=>2;
   6 use Test::Builder::Tester;
   7
   8 BEGIN { use_ok( 'Test::Pod::Coverage' ); }
   9
  10 # the follow test checks that PC_Inherits.pm is fully covered, which it is not
  11 # -- unless you count the documentation of its parent, PC_Inherited; we do this
  12 # with the Pod::Coverage::CountParents subclass of Pod::Coverage -- so, if this
  13 # test passes, it means the subclass was, in fact, used
  14 test_out( "ok 1 - Checking PC_Inherits" );
  15 pod_coverage_ok(
  16   "PC_Inherits",
  17   { coverage_class => 'Pod::Coverage::CountParents' },
  18   "Checking PC_Inherits",
  19 );
  20
  21 test_test( "allows alternate Pod::Coverage class" );