1use Test;
2BEGIN { plan tests => 4 }
3
4use XML::XPath;
5ok(1);
6
7my $xp = XML::XPath->new(ioref => *DATA);
8ok($xp);
9
10my @bbb = $xp->findnodes('//BBB');
11ok(@bbb, 5);
12
13my @subbbb = $xp->findnodes('//DDD/BBB');
14ok(@subbbb, 3);
15
16__DATA__
17<AAA>
18<BBB/>
19<CCC/>
20<BBB/>
21<DDD><BBB/></DDD>
22<CCC><DDD><BBB/><BBB/></DDD></CCC>
23</AAA>
24