git.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-perl/libtest-pod-perl-1.26/t/good.t

   1 #!perl -T
   2
   3 use strict;
   4
   5 use Test::Builder::Tester tests => 3;
   6 use Test::More;
   7
   8 BEGIN {
   9     use_ok( 'Test::Pod' );
  10 }
  11
  12
  13 my $filename = "t/pod/good.pod";
  14 GOOD: {
  15     test_out( "ok 1 - Blargo!" );
  16     pod_file_ok( $filename, "Blargo!" );
  17     test_test( 'Handles good.pod OK' );
  18 }
  19
  20 DEFAULT_NAME: {
  21     test_out( "ok 1 - POD test for t/pod/good.pod" );
  22     pod_file_ok( $filename );
  23     test_test( 'Handles good.pod OK, and builds default name OK' );
  24 }