1use Test;
2BEGIN { plan tests => 5 }
3
4use XML::XPath;
5ok(1);
6
7my $xp = XML::XPath->new(ioref => *DATA);
8ok($xp);
9
10my @nodes;
11@nodes = $xp->findnodes('//*[string-length(name()) = 3]');
12ok(@nodes, 2);
13
14@nodes = $xp->findnodes('//*[string-length(name()) < 3]');
15ok(@nodes, 2);
16
17@nodes = $xp->findnodes('//*[string-length(name()) > 3]');
18ok(@nodes, 3);
19
20__DATA__
21<AAA>
22<Q/>
23<SSSS/>
24<BB/>
25<CCC/>
26<DDDDDDDD/>
27<EEEE/>
28</AAA>
29