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 22BEGIN { 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 31use strict; 32 33use Config; 34if ( $Config{usecrosscompile} ) { 35 skip_all( "Not all files are available during cross-compilation" ); 36} 37 38my $result = runperl(switches => ['-f', '-Ilib'], 39 progfile => 'Porting/pod_rules.pl', 40 args => ['--tap'], 41 nolib => 1, 42 ); 43 44print $result; 45