Lines 21-32
Link Here
|
21 |
# generates the koha-common man pages and ensures they're correct. |
21 |
# generates the koha-common man pages and ensures they're correct. |
22 |
|
22 |
|
23 |
use Modern::Perl; |
23 |
use Modern::Perl; |
24 |
use Test::More qw(no_plan); |
24 |
use Test::More; |
|
|
25 |
use Test::NoWarnings; |
25 |
|
26 |
|
26 |
my $doc_dir = 'debian/docs'; |
27 |
my $doc_dir = 'debian/docs'; |
27 |
my @doc_files = glob( $doc_dir . '/*.xml' ); |
28 |
my @doc_files = glob( $doc_dir . '/*.xml' ); |
28 |
my @command = qw(xmllint --noout); |
29 |
my @command = qw(xmllint --noout); |
29 |
|
30 |
|
|
|
31 |
plan tests => scalar(@doc_files) + 1; |
32 |
|
30 |
foreach my $file (@doc_files) { |
33 |
foreach my $file (@doc_files) { |
31 |
ok( system( @command, $file ) == 0, "XML validation for $file" ); |
34 |
ok( system( @command, $file ) == 0, "XML validation for $file" ); |
32 |
} |
35 |
} |