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