vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-perl/libtest-pod-perl-1.26/t/cut-outside-block.t

   1 #!perl -T
   2
   3 use strict;
   4
   5 use Test::Builder::Tester tests => 2;
   6 use Test::More;
   7
   8 BEGIN {
   9     use_ok( 'Test::Pod' );
  10 }
  11
  12 BAD: {
  13     my $file = 't/cut-outside-block.pod';
  14     test_out( "not ok 1 - POD test for $file" );
  15     pod_file_ok( $file );
  16     test_fail(-1);
  17     test_diag(
  18         "$file (5): =cut found outside a pod block.  Skipping to next block."
  19     );
  20     test_test( "$file is bad" );
  21 }