summaryrefslogtreecommitdiffstats
path: root/t/charset.t
blob: e35a85353cdba45e6426fa4d2cc1c1b218e39291 (plain)
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;