summaryrefslogtreecommitdiff
path: root/t/05attrib.t
diff options
context:
space:
mode:
Diffstat (limited to 't/05attrib.t')
-rw-r--r--t/05attrib.t28
1 files changed, 28 insertions, 0 deletions
diff --git a/t/05attrib.t b/t/05attrib.t
new file mode 100644
index 0000000..62c7370
--- /dev/null
+++ b/t/05attrib.t
@@ -0,0 +1,28 @@
+use Test;
+BEGIN { plan tests => 6 }
+
+use XML::XPath;
+ok(1);
+
+my $xp = XML::XPath->new(ioref => *DATA);
+ok($xp);
+
+my @ids = $xp->findnodes('//BBB[@id]');
+ok(@ids, 2);
+
+my @names = $xp->findnodes('//BBB[@name]');
+ok(@names, 1);
+
+my @attribs = $xp->findnodes('//BBB[@*]');
+ok(@attribs, 3);
+
+my @noattribs = $xp->findnodes('//BBB[not(@*)]');
+ok(@noattribs, 1);
+
+__DATA__
+<AAA>
+<BBB id='b1'/>
+<BBB id='b2'/>
+<BBB name='bbb'/>
+<BBB/>
+</AAA>