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