# ----------------------------------------------------------------
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;
# ----------------------------------------------------------------