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('/descendant::BBB[1]'); 11ok(@bbb, 1); 12ok($bbb[0]->string_value, "OK"); 13 14__DATA__ 15<AAA> 16<BBB>OK</BBB> 17<CCC/> 18<BBB/> 19<DDD><BBB/></DDD> 20<CCC><DDD><BBB/><BBB>NOT OK</BBB></DDD></CCC> 21</AAA> 22