1use Test;
2BEGIN { plan tests => 4 }
3
4use XML::XPath;
5ok(1);
6
7my $xp = XML::XPath->new(ioref => *DATA);
8ok($xp);
9
10my @nodes;
11@nodes = $xp->findnodes('/AAA/XXX/following::*');
12ok(@nodes, 2);
13
14@nodes = $xp->findnodes('//ZZZ/following::*');
15ok(@nodes, 12);
16
17__DATA__
18<AAA>
19<BBB>
20    <CCC/>
21    <ZZZ>
22        <DDD/>
23        <DDD>
24            <EEE/>
25        </DDD>
26    </ZZZ>
27    <FFF>
28        <GGG/>
29    </FFF>
30</BBB>
31<XXX>
32    <DDD>
33        <EEE/>
34        <DDD/>
35        <CCC/>
36        <FFF/>
37        <FFF>
38            <GGG/>
39        </FFF>
40    </DDD>
41</XXX>
42<CCC>
43    <DDD/>
44</CCC>
45</AAA>
46