1################################################################################
2##
3##  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
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
14my @pods = qw( HACKERS PPPort.pm ppport.h soak devel/regenerate devel/buildperl.pl );
15
16my $reason = '';
17
18if ($ENV{'SKIP_SLOW_TESTS'}) {
19  $reason = 'SKIP_SLOW_TESTS';
20}
21else {
22  # Try loading Test::Pod
23  eval q{
24    use Test::Pod;
25    $Test::Pod::VERSION >= 1.41
26        or die "Test::Pod version only $Test::Pod::VERSION";
27    import Test::Pod tests => scalar @pods;
28  };
29  $reason = 'Test::Pod >= 1.41 required' if $@;
30}
31
32if ($reason) {
33  load();
34  plan(tests => scalar @pods);
35}
36
37for (@pods) {
38  print "# checking $_\n";
39  if ($reason) {
40    skip("skip: $reason", 1);
41  }
42  else {
43    pod_file_ok($_);
44  }
45}
46