t/porting/pod_rules.t

   1 #!./perl
   2
   3 # What does this test?
   4 # This test executes Porting/pod_rules.pl and reports the result of that
   5 # program.
   6 #
   7 # Why do we test this?
   8 # Among other reasons, to check the well-formed-ness of these files:
   9 #   win32/makefile.mk
  10 #   MANIFEST
  11 #   win32/Makefile
  12 #   win32/pod.mak
  13 #   Makefile.SH
  14 #   vms/descrip_mms.template
  15 #
  16 # It's broken - how do I fix it?
  17 # If MANIFEST fails the 'up to date' test, it will probably also fail
  18 # t/porting/manifest.t as well.  Follow instructions in that file for
  19 # correcting the MANIFEST.  When that file passes, the MANIFEST check in this
  20 # file will probably pass as well.
  21
  22 BEGIN {
  23     # We need to be at the top level dir.
  24     if (-f 'test.pl' && -f 'harness') {
  25       chdir '..';
  26     }
  27     @INC = qw(lib .); # Special @INC.
  28     require './t/test.pl';
  29 }
  30
  31 use strict;
  32
  33 use Config;
  34 if ( $Config{usecrosscompile} ) {
  35   skip_all( "Not all files are available during cross-compilation" );
  36 }
  37
  38 my $result = runperl(switches => ['-f', '-Ilib'],
  39                      progfile => 'Porting/pod_rules.pl',
  40                      args     => ['--tap'],
  41                      nolib    => 1,
  42                      );
  43
  44 print $result;