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