|
Lines 19-32
use Modern::Perl;
Link Here
|
| 19 |
use Test::More; |
19 |
use Test::More; |
| 20 |
use Test::NoWarnings; |
20 |
use Test::NoWarnings; |
| 21 |
use Pod::Coverage; |
21 |
use Pod::Coverage; |
|
|
22 |
use Koha::Devel::Files; |
| 22 |
|
23 |
|
| 23 |
# Note that we are using Pod::Coverage instead of Test::Pod::Coverage |
24 |
# Note that we are using Pod::Coverage instead of Test::Pod::Coverage |
| 24 |
# We do not want to fail if no pod exists in the file. |
25 |
# We do not want to fail if no pod exists in the file. |
| 25 |
# That could be a next step |
26 |
# That could be a next step |
| 26 |
|
27 |
|
| 27 |
my @files; |
28 |
my $dev_files = Koha::Devel::Files->new( { context => 'tidy' } ); |
| 28 |
push @files, qx{git ls-files '*.pm'}; |
29 |
my @files = $dev_files->ls_perl_files; |
| 29 |
chomp for @files; |
|
|
| 30 |
|
30 |
|
| 31 |
plan tests => scalar(@files) + 1; |
31 |
plan tests => scalar(@files) + 1; |
| 32 |
|
32 |
|
| 33 |
- |
|
|