[PATCH 2.0] pod.t

[Geoffrey Young]

ok, I also have pod.t laying around. I put it in t/pod/pod.t and it seems to be working ok for me.

if you run it in verbose mode on the current sources, you get 103 tests, with a pod error in APR/Table.pod

ok 2
[snip]
*** WARNING: line containing nothing but whitespace in paragraph at line 165 in file ../blib/lib/APR/Table.pod
*** ERROR: unresolved internal link 'TIE_Interface' at line 54 in file ../blib/lib/APR/Table.pod
../blib/lib/APR/Table.pod has 1 pod syntax error.
# testing : ../blib/lib/APR/Table.pod
# expected: 0
# received: 1
not ok 3
# Failed test 3 in pod/pod.t at line 27 fail #3
../blib/lib/Bundle/ApacheTest.pm pod syntax OK.
# testing : ../blib/lib/Bundle/ApacheTest.pm
# expected: 0
# received: 0
ok 4

anyway, pod.t below.

--Geoff

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestUtil;
use File::Spec;
use File::Find qw(find);

my @files;

find(
sub { push @files, $File::Find::name if m!\.p(m|od|l)$! },
File::Spec->catfile(qw(.. blib lib))
);

plan tests => scalar @files, have_module('Pod::Checker');

foreach my $file (@files) {
my $checker = Pod::Checker->new;

$checker->parse_from_file($file, \*STDOUT);

my $errors = $checker->num_errors;

$errors = 0 if $errors == -1;

ok t_cmp(0, $errors, $file);
}


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]