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/23func.t | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 t/23func.t

(limited to 't/23func.t')

diff --git a/t/23func.t b/t/23func.t
new file mode 100644
index 0000000..e2514c3
--- /dev/null
+++ b/t/23func.t
@@ -0,0 +1,41 @@
+use Test;
+BEGIN { plan tests => 5 }
+
+use XML::XPath;
+ok(1);
+
+my $xp = XML::XPath->new(ioref => *DATA);
+ok($xp);
+
+my @nodes;
+@nodes = $xp->findnodes('//BBB[position() mod 2 = 0 ]');
+ok(@nodes, 4);
+
+@nodes = $xp->findnodes('//BBB
+        [ position() = floor(last() div 2 + 0.5) 
+            or
+          position() = ceiling(last() div 2 + 0.5) ]');
+
+ok(@nodes, 2);
+
+@nodes = $xp->findnodes('//CCC
+        [ position() = floor(last() div 2 + 0.5) 
+            or
+          position() = ceiling(last() div 2 + 0.5) ]');
+
+ok(@nodes, 1);
+
+__DATA__
+<AAA>
+    <BBB/>
+    <BBB/>
+    <BBB/>
+    <BBB/>
+    <BBB/>
+    <BBB/>
+    <BBB/>
+    <BBB/>
+    <CCC/>
+    <CCC/>
+    <CCC/>
+</AAA>
-- 
cgit v1.2.1