vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-perl/libtest-pod-perl-1.26/t/unknown-directive.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 $name = 'Test name: Something not likely to accidentally occur!';
  14     my $file = 't/unknown-directive.pod';
  15     test_out( "not ok 1 - $name" );
  16     pod_file_ok( $file, $name );
  17     test_fail(-1);
  18     test_diag( "$file (9): Unknown directive: =over4",);
  19     test_diag( "$file (13): Unknown directive: =under",);
  20     test_test( "$name is bad" );
  21 }