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