Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
testpods	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
contains_bad_pod.xr	31 B	-r--r--r--	2014-12-27 11:48
contains_pod.t	306 B	-r--r--r--	2014-12-27 11:48
contains_pod.xr	32 B	-r--r--r--	2014-12-27 11:48
empty.xr	0 B	-r--r--r--	2014-12-27 11:48
emptycmd.t	422 B	-r--r--r--	2014-12-27 11:48
emptycmd.xr	58 B	-r--r--r--	2014-12-27 11:48
find.t	2.82 KB	-r--r--r--	2014-12-27 11:48
for.t	945 B	-r--r--r--	2014-12-27 11:48
for.xr	390 B	-r--r--r--	2014-12-27 11:48
headings.t	4.23 KB	-r--r--r--	2014-12-27 11:48
headings.xr	1.03 KB	-r--r--r--	2014-12-27 11:48
include.t	884 B	-r--r--r--	2014-12-27 11:48
include.xr	743 B	-r--r--r--	2014-12-27 11:48
included.t	1.02 KB	-r--r--r--	2014-12-27 11:48
included.xr	126 B	-r--r--r--	2014-12-27 11:48
lref.t	1.21 KB	-r--r--r--	2014-12-27 11:48
lref.xr	941 B	-r--r--r--	2014-12-27 11:48
multiline_items.t	537 B	-r--r--r--	2014-12-27 11:48
multiline_items.xr	147 B	-r--r--r--	2014-12-27 11:48
nested_items.t	760 B	-r--r--r--	2014-12-27 11:48
nested_items.xr	310 B	-r--r--r--	2014-12-27 11:48
nested_seqs.t	480 B	-r--r--r--	2014-12-27 11:48
nested_seqs.xr	114 B	-r--r--r--	2014-12-27 11:48
oneline_cmds.t	1.41 KB	-r--r--r--	2014-12-27 11:48
oneline_cmds.xr	1.03 KB	-r--r--r--	2014-12-27 11:48
podselect.t	381 B	-r--r--r--	2014-12-27 11:48
podselect.xr	1.52 KB	-r--r--r--	2014-12-27 11:48
selfcheck.t	1.25 KB	-r--r--r--	2014-12-27 11:48
special_seqs.t	1.46 KB	-r--r--r--	2014-12-27 11:48
special_seqs.xr	1.08 KB	-r--r--r--	2014-12-27 11:48
testcmp.pl	2.76 KB	-r--r--r--	2014-12-27 11:48
testp2pt.pl	5.63 KB	-r--r--r--	2014-12-27 11:48
testpchk.pl	3.58 KB	-r--r--r--	2014-12-27 11:48
twice.t	643 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl
use Test::More;
use File::Basename;
use File::Spec;
use strict;
my $THISDIR;
BEGIN {
   $THISDIR = dirname $0;
   unshift @INC, $THISDIR;
   eval {
     require "testpchk.pl";
     import TestPodChecker qw(testpodcheck);
   };
   warn $@ if $@;
};

my @pods;
unless($Pod::Checker::VERSION && $Pod::Checker::VERSION > 1.40) {
  plan skip_all => "we do not have a good Pod::Checker around";
} else {
  my $path = File::Spec->catfile($THISDIR,(File::Spec->updir()) x 2, 'lib', 'Pod', '*.pm');
  print "THISDIR=$THISDIR PATH=$path\n";
  @pods = glob($path);
  print "PODS=@pods\n";
  plan tests => scalar(@pods);
}

# test that our POD is correct!
my $errs = 0;

foreach my $pod (@pods) {
  my $out = File::Spec->catfile($THISDIR, basename($pod));
  $out =~ s{\.pm}{.OUT};
  my %options = ( -Out => $out );
  my $failmsg = testpodcheck(-In => $pod, -Out => $out, -Cmp => "$THISDIR/empty.xr");
  if($failmsg) {
    if(open(IN, "<$out")) {
      while(<IN>) {
        warn "podchecker: $_";
      }
      close(IN);
    } else {
      warn "Error: Cannot read output file $out: $!\n";
    }
    ok(0, $pod);
    $errs++;
  } else {
    ok(1, $pod);
  }
}

exit( ($errs == 0) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};