1use Test; 2BEGIN { plan tests => 5 } 3 4use XML::XPath; 5 6ok(1); 7my $xp = XML::XPath->new(ioref => *DATA); 8ok($xp); 9 10my @root = $xp->findnodes('/AAA'); 11ok(@root, 1); 12 13my @ccc = $xp->findnodes('/AAA/CCC'); 14ok(@ccc, 3); 15 16my @bbb = $xp->findnodes('/AAA/DDD/BBB'); 17ok(@bbb, 2); 18 19__DATA__ 20<AAA> 21 <BBB/> 22 <CCC/> 23 <BBB/> 24 <CCC/> 25 <BBB/> 26 <!-- comment --> 27 <DDD> 28 <BBB/> 29 Text 30 <BBB/> 31 </DDD> 32 <CCC/> 33</AAA> 34