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