# ----------------------------------------------------------------
use strict;
use Test::More;
# ----------------------------------------------------------------
{
plan tests => 6;
use_ok('XML::TreePP');
&test_undef( first_out => [qw( attr hash list empty undef -one -two three four )] );
}
# ----------------------------------------------------------------
sub test_undef {
my $tpp = XML::TreePP->new(@_);
my $empty = '';
my $undef = undef;
my $tree = {
root => {
attr => { -one=>'', -two=>undef },
hash => { three => '', four => undef },
list => [ '', undef ],
empty => \$empty,
undef => \$undef,
}
};
my $xml = $tpp->write( $tree );
like( $xml, qr{<attr one="" two=""}, 'attr one two' );
like( $xml, qr{ <hash>\s*<three }xs, 'hash three' );
like( $xml, qr{ </three>\s*<four }xs, 'hash four' );
like( $xml, qr{ <empty><!\[CDATA\[ }xs, 'empty cdata' );
like( $xml, qr{ <undef><!\[CDATA\[ }xs, 'undef cdata' );
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------