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