|
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 |
} |