# $Id: xmlxpath_29desc_with_predicate.t,v 1.1.1.1 2003/12/04 20:40:43 mrodrigu Exp $
use Test;
plan( tests => 4);
use XML::DOM::XPath;
ok(1);
my $parser= XML::DOM::Parser->new;
my $t= $parser->parse( \*DATA); 
ok( $t);
my @bbb = $t->findnodes( '/descendant::BBB[1]');
ok(@bbb, 1);
ok($bbb[0]->string_value, "OK");
__DATA__
<AAA>
<BBB>OK</BBB>
<CCC/>
<BBB/>
<DDD><BBB/></DDD>
<CCC><DDD><BBB/><BBB>NOT OK</BBB></DDD></CCC>
</AAA>