Commit | Line | Data |
---|---|---|
c07deaaf MHM |
1 | ################################################################################ |
2 | ## | |
b2049988 | 3 | ## Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz. |
c07deaaf MHM |
4 | ## Version 2.x, Copyright (C) 2001, Paul Marquess. |
5 | ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski. | |
6 | ## | |
7 | ## This program is free software; you can redistribute it and/or | |
8 | ## modify it under the same terms as Perl itself. | |
9 | ## | |
10 | ################################################################################ | |
11 | ||
12 | =tests plan => 0 | |
13 | ||
56093a11 | 14 | my @pods = qw( HACKERS PPPort.pm ppport.h soak devel/regenerate devel/buildperl.pl ); |
c07deaaf | 15 | |
0c96388f | 16 | my $reason = ''; |
c07deaaf | 17 | |
0c96388f MHM |
18 | if ($ENV{'SKIP_SLOW_TESTS'}) { |
19 | $reason = 'SKIP_SLOW_TESTS'; | |
20 | } | |
21 | else { | |
22 | # Try loading Test::Pod | |
23 | eval q{ | |
24 | use Test::Pod; | |
8f62b02f | 25 | $Test::Pod::VERSION >= 1.41 |
0c96388f MHM |
26 | or die "Test::Pod version only $Test::Pod::VERSION"; |
27 | import Test::Pod tests => scalar @pods; | |
28 | }; | |
8f62b02f | 29 | $reason = 'Test::Pod >= 1.41 required' if $@; |
0c96388f | 30 | } |
c07deaaf | 31 | |
0c96388f | 32 | if ($reason) { |
c07deaaf MHM |
33 | load(); |
34 | plan(tests => scalar @pods); | |
35 | } | |
36 | ||
37 | for (@pods) { | |
38 | print "# checking $_\n"; | |
0c96388f | 39 | if ($reason) { |
c6e41a0a | 40 | skip("skip: $reason", 1); |
c07deaaf MHM |
41 | } |
42 | else { | |
0c96388f | 43 | pod_file_ok($_); |
c07deaaf MHM |
44 | } |
45 | } |