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
|
# ----------------------------------------------------------------
# this test script is written in utf8 but does not "use utf8" for 5.005-compatibility
# ----------------------------------------------------------------
use strict;
use Test::More;
# ----------------------------------------------------------------
{
local $@;
eval { require 5.008001; };
plan skip_all => 'Perl 5.8.1 is required.' if $@;
}
# ----------------------------------------------------------------
my $FILES = [qw(
t/example/hello-en-utf8.xml
t/example/hello-en-nodecl.xml
t/example/hello-en-noenc.xml
t/example/hello-en-utf8-bom.xml
t/example/hello-en-nodecl-bom.xml
t/example/hello-en-noenc-bom.xml
)];
# ----------------------------------------------------------------
{
plan tests => 13;
use_ok('XML::TreePP');
&test_main();
}
# ----------------------------------------------------------------
sub test_main {
my $octets = 'Hello, World! §±×÷';
my $string = $octets;
require utf8;
utf8::decode( $string );
my $tpp1 = XML::TreePP->new( utf8_flag => 0 );
my $tpp2 = XML::TreePP->new( utf8_flag => 1 );
foreach my $file ( @$FILES ) {
my $tree1 = $tpp1->parsefile( $file );
is( $tree1->{root}->{text}, $octets, $file." without utf8_flag" );
my $tree2 = $tpp2->parsefile( $file );
is( $tree2->{root}->{text}, $string, $file." with utf8_flag" );
}
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
