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/following::*'); 12ok(@nodes, 2); 13 14@nodes = $xp->findnodes('//ZZZ/following::*'); 15ok(@nodes, 12); 16 17__DATA__ 18<AAA> 19<BBB> 20 <CCC/> 21 <ZZZ> 22 <DDD/> 23 <DDD> 24 <EEE/> 25 </DDD> 26 </ZZZ> 27 <FFF> 28 <GGG/> 29 </FFF> 30</BBB> 31<XXX> 32 <DDD> 33 <EEE/> 34 <DDD/> 35 <CCC/> 36 <FFF/> 37 <FFF> 38 <GGG/> 39 </FFF> 40 </DDD> 41</XXX> 42<CCC> 43 <DDD/> 44</CCC> 45</AAA> 46