ext/Devel/PPPort/parts/inc/podtest

   1 ################################################################################
   2 ##
   3 ##  $Revision: 5 $
   4 ##  $Author: mhx $
   5 ##  $Date: 2006/05/28 20:43:18 +0200 $
   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
  20 my @pods = qw( HACKERS PPPort.pm ppport.h devel/regenerate devel/buildperl.pl );
  21
  22 my $reason = '';
  23
  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 }
  37
  38 if ($reason) {
  39   load();
  40   plan(tests => scalar @pods);
  41 }
  42
  43 for (@pods) {
  44   print "# checking $_\n";
  45   if ($reason) {
  46     skip("skip: $reason", 0);
  47   }
  48   else {
  49     pod_file_ok($_);
  50   }
  51 }
  52