1use Test;
2BEGIN { plan tests => 5 }
3
4use XML::XPath;
5
6ok(1);
7my $xp = XML::XPath->new(ioref => *DATA);
8ok($xp);
9
10my @root = $xp->findnodes('/AAA');
11ok(@root, 1);
12
13my @ccc = $xp->findnodes('/AAA/CCC');
14ok(@ccc, 3);
15
16my @bbb = $xp->findnodes('/AAA/DDD/BBB');
17ok(@bbb, 2);
18
19__DATA__
20<AAA>
21    <BBB/>
22    <CCC/>
23    <BBB/>
24    <CCC/>
25    <BBB/>
26    <!-- comment -->
27    <DDD>
28        <BBB/>
29        Text
30        <BBB/>
31    </DDD>
32    <CCC/>
33</AAA>
34