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 12@nodes = $xp->findnodes('/AAA/CCC/DDD/*'); 13ok(@nodes, 4); 14 15@nodes = $xp->findnodes('/*/*/*/BBB'); 16ok(@nodes, 5); 17 18@nodes = $xp->findnodes('//*'); 19ok(@nodes, 17); 20 21__DATA__ 22<AAA> 23<XXX><DDD><BBB/><BBB/><EEE/><FFF/></DDD></XXX> 24<CCC><DDD><BBB/><BBB/><EEE/><FFF/></DDD></CCC> 25<CCC><BBB><BBB><BBB/></BBB></BBB></CCC> 26</AAA> 27