1use Test; 2BEGIN { plan tests => 6 } 3 4use XML::XPath::Parser; 5 6ok(1); 7 8my $xp = XML::XPath::Parser->new(); 9ok($xp); 10 11ok($xp->parse('/AAA')->as_string, "(/child::AAA)"); 12 13ok($xp->parse('/AAA/BBB')->as_string, "(/child::AAA/child::BBB)"); 14 15ok($xp->parse('/child::AAA/child::BBB')->as_string, 16 "(/child::AAA/child::BBB)"); 17 18ok($xp->parse('/child::AAA/BBB')->as_string, "(/child::AAA/child::BBB)"); 19