1use Test; 2BEGIN { plan tests => 5 } 3 4use XML::XPath; 5 6my $doc_one = qq|<doc><para>para one</para></doc>|; 7 8my $xp = XML::XPath->new(xml => $doc_one); 9ok($xp); 10 11my $doc_one_chars = $xp->find('string-length(/doc/text())'); 12ok($doc_one_chars == 0, 1); 13 14my $doc_two = qq| 15<doc> 16 <para>para one has <b>bold</b> text</para> 17</doc> 18|; 19 20$xp = undef; 21 22$xp = XML::XPath->new(xml => $doc_two); 23ok($xp); 24 25my $doc_two_chars = $xp->find('string-length(/doc/text())'); 26ok($doc_two_chars == 3, 1); 27 28my $doc_two_para_chars = $xp->find('string-length(/doc/para/text())'); 29ok($doc_two_para_chars == 13, 1); 30 31