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