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

   1 #!perl -T
   2
   3 use strict;
   4 use lib "t";
   5 use Test::More tests=>4;
   6 use Test::Builder::Tester;
   7
   8 BEGIN {
   9     use_ok( 'Test::Pod::Coverage' );
  10 }
  11
  12 MISSING_FUNCS: {
  13     test_out( "not ok 1 - Privates fails" );
  14     test_fail(+4);
  15     test_diag( "Coverage for Privates is 60.0%, with 2 naked subroutines:" );
  16     test_diag( "\tINTERNAL_DOODAD" );
  17     test_diag( "\tINTERNAL_THING" );
  18     pod_coverage_ok( "Privates", "Privates fails" );
  19     test_test( "Should fail at 60%" );
  20 }
  21
  22 SPECIFIED_PRIVATES: {
  23     test_out( "ok 1 - Privates works w/a custom PC object" );
  24     pod_coverage_ok(
  25         "Privates",
  26         { also_private => [ qr/^[A-Z_]+$/ ], },
  27         "Privates works w/a custom PC object"
  28     );
  29     test_test( "Trying to pass PC object" );
  30 }
  31
  32 SPECIFIED_PRIVATES_NAKED: {
  33     pod_coverage_ok(
  34         "Privates",
  35         { also_private => [ qr/^[A-Z_]+$/ ], },
  36     );
  37 }