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
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#! /usr/bin/perl
# Character sets tester.
#########################
use strict;
use warnings;
use lib q(t);
use Testhelper;
my @tests;
push @tests,
{
'doc' => 'master encoding: ascii',
'po4a.conf' => 'charset/input-ascii/po4a.conf',
'closed_path' => 'charset/*/',
'options' => '--keep 0',
'expected_files' => 'ascii.up.po ascii.pot ascii.up.pod ',
},
{
'doc' => 'master encoding: iso8859',
'po4a.conf' => 'charset/input-iso8859/po4a.conf',
'closed_path' => 'charset/*/',
'options' => '--keep 0',
'expected_files' => 'iso8859.up.po iso8859.pot iso8859.up.pod ',
},
{
'doc' => 'master encoding: UTF-8 ',
'po4a.conf' => 'charset/input-utf8/po4a.conf',
'closed_path' => 'charset/*/',
'options' => '--keep 0',
'expected_files' => 'utf8.up.po utf8.pot utf8.up.pod ',
},
{
'format' => 'asciidoc',
'input' => "charset/asciidoc/CharsetUtf.adoc",
},
{
'doc' => "UTF with BOM marker (code point of width 3 at the beginning of the doc to indicate that it's UTF-8)",
'format' => 'asciidoc',
'input' => "charset/asciidoc/CharsetUtfBOM.adoc",
'norm' => "charset/asciidoc/CharsetUtf.norm",
'trans' => "charset/asciidoc/CharsetUtf.trans",
},
{
'format' => 'asciidoc',
'options' => '-M iso-8859-1',
'input' => "charset/asciidoc/CharsetLatin1.adoc",
},
{
'format' => 'yaml',
'options' => "-M UTF-8",
'input' => "charset/yaml/utf8.yaml",
};
run_all_tests(@tests);
0;
|