From a2d12bc84fb2af87dd1c0c6e5bc854554902cd67 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@baserock.org>
Date: Sun, 26 Jan 2003 19:35:03 +0000
Subject: Imported from
 /home/lorry/working-area/delta_perl-xml-xpath/XML-XPath-1.13.tar.gz.

---
 t/05attrib.t | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 t/05attrib.t

(limited to 't/05attrib.t')

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>
-- 
cgit v1.2.1