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); |