1use Test; 2BEGIN { plan tests => 6 } 3 4use XML::XPath; 5ok(1); 6 7my $xp = XML::XPath->new(ioref => *DATA); 8ok($xp); 9 10my @ids = $xp->findnodes('//BBB[@id]'); 11ok(@ids, 2); 12 13my @names = $xp->findnodes('//BBB[@name]'); 14ok(@names, 1); 15 16my @attribs = $xp->findnodes('//BBB[@*]'); 17ok(@attribs, 3); 18 19my @noattribs = $xp->findnodes('//BBB[not(@*)]'); 20ok(@noattribs, 1); 21 22__DATA__ 23<AAA> 24<BBB id='b1'/> 25<BBB id='b2'/> 26<BBB name='bbb'/> 27<BBB/> 28</AAA> 29