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

(-)a/xt/author/podcorrectness.t (-10 / +9 lines)
Lines 1-5 Link Here
1
#!/usr/bin/env perl
1
#!/usr/bin/env perl
2
use Modern::Perl;
3
2
4
=head2 podcorrectness.t
3
=head2 podcorrectness.t
5
4
Lines 8-23 correctness. It typically finds things like pod tags withouth blank Link Here
8
lines immediately before or after them, unknown directives, or =over,
7
lines immediately before or after them, unknown directives, or =over,
9
=item, and =back in the wrong order.
8
=item, and =back in the wrong order.
10
9
11
You must have Test::Pod installed.
10
One good way to run this is with C<prove -v xt/author/podcorrectness.t>
12
13
One good way to run this is with C<prove -v
14
xt/author/podcorrectness.t>
15
11
16
=cut
12
=cut
17
13
14
use Modern::Perl;
18
use Test::More;
15
use Test::More;
19
eval "use Test::Pod 1.00";
16
use Test::Pod;
20
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
17
21
my @poddirs = qw( C4 Koha );
18
my @files;
22
all_pod_files_ok( all_pod_files(@poddirs) );
19
push @files, qx{git ls-files '*.pl' '*.PL' '*.pm' '*.t'};
20
push @files, qx{git ls-files svc opac/svc};                 # Files without extension
21
chomp for @files;
23
22
24
- 
23
all_pod_files_ok(@files);

Return to bug 39319