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