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
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 15;
BEGIN { use_ok('XML::TreePP') };
# ----------------------------------------------------------------
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-latin1.xml
t/example/hello-en-utf8-bom.xml
t/example/hello-en-nodecl-bom.xml
t/example/hello-en-noenc-bom.xml
)];
&test_main();
# ----------------------------------------------------------------
sub test_main {
my $tpp = XML::TreePP->new();
my $prev;
foreach my $file ( @$FILES ) {
my $tree = $tpp->parsefile( $file );
if ( defined $prev ) {
is( $tree->{root}->{text}, $prev, "same ".$file );
} else {
like( $tree->{root}->{text}, qr/^Hello, World\!\s\S{4}/, "first ".$file );
$prev = $tree->{root}->{text};
}
my $xml = $tpp->write( $tree );
like( $xml, qr/^\s*<\?xml[^<>]+encoding="UTF-8"/is, "write encoding" );
}
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
