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