Commit | Line | Data |
---|---|---|
d89d11bb TC |
1 | #!./perl |
2 | ||
deed50f2 JK |
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 | ||
d89d11bb TC |
22 | BEGIN { |
23 | chdir '..' unless -d 't'; | |
24 | unshift @INC, 'lib'; | |
25 | } | |
26 | ||
27 | use strict; | |
b8948979 | 28 | require 't/test.pl'; |
d89d11bb | 29 | |
3a73a075 BF |
30 | use Config; |
31 | if ( $Config{usecrosscompile} ) { | |
32 | skip_all( "Not all files are available during cross-compilation" ); | |
33 | } | |
34 | ||
b8948979 | 35 | my $result = runperl(switches => ['-f', '-Ilib'], |
b78c1104 | 36 | progfile => 'Porting/pod_rules.pl', |
4fb2ab38 DD |
37 | args => ['--tap'], |
38 | nolib => 1, | |
39 | ); | |
b8948979 CB |
40 | |
41 | print $result; |