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('/descendant::BBB[1]');
11ok(@bbb, 1);
12ok($bbb[0]->string_value, "OK");
13
14__DATA__
15<AAA>
16<BBB>OK</BBB>
17<CCC/>
18<BBB/>
19<DDD><BBB/></DDD>
20<CCC><DDD><BBB/><BBB>NOT OK</BBB></DDD></CCC>
21</AAA>
22