View | Details | Raw Unified | Return to bug 39319
Collapse All | Expand All

(-)a/xt/author/pod_checker.t (-3 / +14 lines)
Lines 10-17 push @files, qx{git ls-files '*.pl' '*.PL' '*.pm' '*.t'}; Link Here
10
push @files, qx{git ls-files svc opac/svc};                 # Files without extension
10
push @files, qx{git ls-files svc opac/svc};                 # Files without extension
11
chomp for @files;
11
chomp for @files;
12
12
13
plan tests => 1;
13
plan tests => scalar @files + 1;
14
14
15
for my $file (@files) {
15
for my $file (@files) {
16
    podchecker($file);
16
    my $checker = Pod::Checker->new();
17
    $checker->parse_from_file( $file, \*STDERR );
18
    my $num_errors   = $checker->num_errors;
19
    my $num_warnings = $checker->num_warnings;
20
    if ( $checker->num_errors > 0 ) {
21
        fail("Found pod errors for $file");
22
    } elsif ( $checker->num_errors == -1 ) {
23
        pass("Skip pod checker for $file - no pod found");
24
    } elsif ( $checker->num_warnings ) {
25
        fail("Found pod warnings for $file");
26
    } else {
27
        pass("pod for $file");
28
    }
17
}
29
}
18
- 

Return to bug 39319