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