Imported from /home/lorry/working-area/delta_perl-xml-xpath/XML-XPath-1.13.tar.gz.HEADXML-XPath-1.13master

1 files changed, 18 insertions, 0 deletions

diff --git a/t/11axischild.t b/t/11axischild.t
new file mode 100644
index 0000000..58058a1
--- /dev/null
+++ b/t/11axischild.t
@@ -0,0 +1,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)");