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
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 6;
BEGIN { use_ok('XML::TreePP') };
# ----------------------------------------------------------------
my $tpp = XML::TreePP->new();
my $tree = { rss => { channel => { item => [ {
title => "The Perl Directory",
link => "http://www.perl.org/",
}, {
title => "The Comprehensive Perl Archive Network",
link => "http://cpan.perl.org/",
} ] } } };
my $xml = $tpp->write( $tree );
like( $xml, qr{^<\?xml version="1.0" encoding="UTF-8"}, "xmldecl" );
like( $xml, qr{<rss>.*</rss>}s, "rss" );
my $back = $tpp->parse( $xml );
is_deeply( $tree, $back, "write and parse" );
# 2006/08/13 added
$tpp->set( xml_decl => '' );
my $nodecl = $tpp->write( $back );
unlike( $nodecl, qr{^<\?xml}, "xml_decl is null" );
my $decl = '<?xml version="1.0" ?>';
$tpp->set( xml_decl => $decl );
my $setdecl = $tpp->write( $back );
like( $setdecl, qr{^\Q$decl\E}, "xml_decl is set" );
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
