podtest

source of perl for linux application,

################################################################################
##
##  $Revision: 7 $
##  $Author: mhx $
##  $Date: 2007/01/02 12:32:28 +0100 $
##
################################################################################
##
##  Version 3.x, Copyright (C) 2004-2007, 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($_);
  }
}