################################################################################ ## ## Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz. ## Version 2.x, Copyright (C) 2001, Paul Marquess. ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski. ## ## This program is free software; you can redistribute it and/or ## modify it under the same terms as Perl itself. ## ################################################################################ =tests plan => 0 my @pods = qw( HACKERS PPPort.pm ppport.h soak devel/regenerate devel/buildperl.pl ); my $reason = ''; if ($ENV{'SKIP_SLOW_TESTS'}) { $reason = 'SKIP_SLOW_TESTS'; } else { # Try loading Test::Pod eval q{ use Test::Pod; $Test::Pod::VERSION >= 0.95 or die "Test::Pod version only $Test::Pod::VERSION"; import Test::Pod tests => scalar @pods; }; $reason = 'Test::Pod >= 0.95 required' if $@; } if ($reason) { load(); plan(tests => scalar @pods); } for (@pods) { print "# checking $_\n"; if ($reason) { skip("skip: $reason", 0); } else { pod_file_ok($_); } }