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