1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# ----------------------------------------------------------------
use strict;
use Test::More;
# ----------------------------------------------------------------
my $tree1 = {root=>{-attr=>'val', "#text"=>""}};
my $tree2 = {root=>{-attr=>'val', "#text"=>undef}};
# ----------------------------------------------------------------
{
plan tests => 3;
use_ok('XML::TreePP');
my $tpp = XML::TreePP->new();
my $xml;
$xml = $tpp->write($tree1);
like($xml, qr:<root [^>]*></root>:, "text node with zero length string");
$xml = $tpp->write($tree2);
like($xml, qr:<root [^>]*/>:, "text node of undef");
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
