vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-coverage-perl/libtest-pod-coverage-perl-1.08/t/nopod.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 {
   9     use_ok( 'Test::Pod::Coverage' );
  10 }
  11
  12 test_out( "not ok 1 - Checking Nopod" );
  13 test_fail(+2);
  14 test_diag( "Nopod: couldn't find pod" );
  15 pod_coverage_ok( "Nopod", "Checking Nopod" );
  16 test_test( "Handles files with no pod at all" );