Upgrade to Devel::PPPort 3.08_03
[p5sagit/p5-mst-13.2.git] / ext / Devel / PPPort / parts / inc / podtest
CommitLineData
c07deaaf 1################################################################################
2##
0c96388f 3## $Revision: 3 $
c07deaaf 4## $Author: mhx $
0c96388f 5## $Date: 2006/05/24 09:25:00 +0200 $
c07deaaf 6##
7################################################################################
8##
9## Version 3.x, Copyright (C) 2004-2006, Marcus Holland-Moritz.
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
20my @pods = qw( HACKERS PPPort.pm ppport.h );
21
0c96388f 22my $reason = '';
c07deaaf 23
0c96388f 24if ($ENV{'SKIP_SLOW_TESTS'}) {
25 $reason = 'SKIP_SLOW_TESTS';
26}
27else {
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 38if ($reason) {
c07deaaf 39 load();
40 plan(tests => scalar @pods);
41}
42
43for (@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