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
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 3;
BEGIN { use_ok('XML::TreePP') };
# ----------------------------------------------------------------
{
my $tree = {
root => {
one => 1,
two => 2,
three => 3,
four => 4,
five => 5,
six => 6,
seven => 7,
eight => 8,
nine => 9,
},
};
{
my $tpp = XML::TreePP->new();
$tpp->set( first_out => [qw( one two three )] );
$tpp->set( last_out => [qw( seven eight nine )] );
my $xml = $tpp->write( $tree );
like( $xml, qr{<one>.*<two>.*<three>.*<five>.*<seven>.*<eight>.*<nine>}s, "1-2-3-*-5-*-7-8-9" );
}
{
my $tpp = XML::TreePP->new();
$tpp->set( first_out => [qw( seven eight nine )] );
$tpp->set( last_out => [qw( one two three )] );
my $xml = $tpp->write( $tree );
like( $xml, qr{<seven>.*<eight>.*<nine>.*<five>.*<one>.*<two>.*<three>}s, "7-8-9-*-5-*-1-2-3" );
}
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
