1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#! /usr/bin/perl
# Addenda modifiers tester.
#########################
use strict;
use warnings;
use lib q(t);
use Testhelper;
my @tests;
push @tests, {
'doc' => 'Several kind of positioning (examples of the doc) POD format',
'po4a.conf' => 'add/positioning/positioning.conf',
'closed_path' => 'add/*/',
'expected_files' =>
'file-before.pod.fr file-after.pod.fr file-eof.pod.fr file-eofmode.pod.fr fr.po positioning.pot',
},
{
'doc' => 'Lists of addendums (asciidoc format)',
'po4a.conf' => 'add/list/po4a.conf',
'closed_path' => 'add/*/',
'expected_files' => 'output-1 output-2 output-3 output-123 output-list up.po list.pot',
},
{
'doc' => 'Modifiers (asciidoc format)',
'po4a.conf' => 'add/modifiers/po4a.conf',
'closed_path' => 'add/*/',
'options' => '--no-update',
'expected_files' => 'with-1 without-2 without-3 without-4 without-5 without-6 with-7 without-8',
},
{
'doc' => 'Same path to addenda for all languages (and ? modifier)',
'po4a.conf' => 'add/path/po4a.conf',
'closed_path' => 'add/*/',
'expected_files' => 'multiple.de.po multiple.es.po multiple.fr.po multiple.it.po '
. 'multiple.man.de.1 multiple.man.es.1 multiple.man.fr.1 multiple.man.it.1 multiple.pot',
};
run_all_tests(@tests);
0;
|
