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

   1 #!perl -T
   2
   3 use strict;
   4
   5 use Test::More skip_all => "Not written yet";
   6 use Test::Builder::Tester tests => 2;
   7 use Test::More;
   8
   9 BEGIN {
  10     use_ok( 'Test::Pod' );
  11 }
  12
  13 BAD: {
  14     my $name = 'Test name: Something not likely to accidentally occur!';
  15     my $file = 't/spaced-rectives.pod';
  16     test_out( "not ok 1 - $name" );
  17     pod_file_ok( $file, $name );
  18     test_fail(-1);
  19     test_diag( "$file (9): Unknown directive: =over4",);
  20     test_diag( "$file (13): Unknown directive: =under",);
  21     test_test( "$name is bad" );
  22 }