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