1use Test; 2BEGIN { plan tests => 4 } 3 4use XML::XPath; 5ok(1); 6 7my $xp = XML::XPath->new(ioref => *DATA); 8ok($xp); 9 10my @bbb = $xp->findnodes('//a/b[2]'); 11ok(@bbb, 2); 12 13@bbb = $xp->findnodes('(//a/b)[2]'); 14ok(@bbb, 1); 15 16__DATA__ 17<xml> 18 <a> 19 <b>some 1</b> 20 <b>value 1</b> 21 </a> 22 <a> 23 <b>some 2</b> 24 <b>value 2</b> 25 </a> 26</xml> 27