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     chdir '..' unless -d 't';
  24     unshift @INC, 'lib';
  25 }
  26
  27 use strict;
  28 require 't/test.pl';
  29
  30 use Config;
  31 if ( $Config{usecrosscompile} ) {
  32   skip_all( "Not all files are available during cross-compilation" );
  33 }
  34
  35 my $result = runperl(switches => ['-f', '-Ilib'],
  36                      progfile => 'Porting/pod_rules.pl',
  37                      args     => ['--tap'],
  38                      nolib    => 1,
  39                      );
  40
  41 print $result;