1#!/usr/bin/perl 2 3use Test; 4BEGIN { plan tests => 7 } 5 6use XML::XPath; 7use XML::XPath::XMLParser; 8$XML::XPath::SafeMode = 1; 9 10ok(1); 11my $xp = XML::XPath->new(ioref => *DATA); 12ok($xp); 13 14my ($root) = $xp->findnodes('/'); 15 16ok($root); 17 18($root) = $root->getChildNodes; 19my @nodes = $xp->findnodes('//Cart',$root); 20 21ok(@nodes, 2); 22 23$root->removeChild($nodes[0]); 24 25@nodes = $xp->findnodes('//Cart', $root); 26ok(@nodes, 1); 27 28my $cart = $nodes[0]; 29 30@nodes = $xp->findnodes('//Cart/@*', $root); 31ok(@nodes, 2); 32 33$cart->removeAttribute('crap'); 34@nodes = $xp->findnodes('//Cart/@*', $root); 35 36ok(@nodes, 1); 37 38__DATA__ 39<Shop id="mod3838" hello="you"> 40<Cart id="1" crap="crap"> 41 <Item id="11" crap="crap"/> 42</Cart> 43<Cart id="2" crap="crap"/> 44</Shop> 45