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