ext/Devel/PPPort/parts/inc/podtest

   1 ################################################################################
   2 ##
   3 ##  $Revision: 2 $
   4 ##  $Author: mhx $
   5 ##  $Date: 2006/05/22 00:50:40 +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 );
  21
  22 # Try loading Test::Pod
  23 eval q{
  24   use Test::Pod;
  25   $Test::Pod::VERSION >= 0.95
  26       or die "Test::Pod version only $Test::Pod::VERSION";
  27   import Test::Pod tests => scalar @pods;
  28 };
  29
  30 my $TP = $@ eq '';
  31
  32 unless ($TP) {
  33   load();
  34   plan(tests => scalar @pods);
  35 }
  36
  37 for (@pods) {
  38   print "# checking $_\n";
  39   if ($TP) {
  40     pod_file_ok($_);
  41   }
  42   else {
  43     skip("skip: Test::Pod >= 0.95 required", 0);
  44   }
  45 }
  46