git.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-perl/libtest-pod-perl-1.26/t/item-ordering.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 my $file = 't/item-ordering.pod';
  13 test_out( "not ok 1 - POD test for $file" );
  14 pod_file_ok( $file );
  15 test_fail(-1);
  16 test_diag(
  17     "$file (32): You can't have =items (as at line 36) unless the first thing after the =over is an =item",
  18 );
  19 test_test( "$file is bad" );