Add back testing files, lost in previous commit

[SXSI/xpathcomp.git] / tests / xpath-pt / xquery / F2.xql

diff --git a/tests/xpath-pt/xquery/F2.xql b/tests/xpath-pt/xquery/F2.xql
new file mode 100644 (file)
index 0000000..e143a68
--- /dev/null
+++ b/tests/xpath-pt/xquery/F2.xql
@@ -0,0 +1,15 @@
+declare namespace fun = 'have.more.fun';
+
+declare function fun:closure($input as node()*, $result as node()*) as node()*
+{
+   let $current := $input/preceding-sibling::bidder[position()=1 and number(increase) <= 10]
+   let $new := $current except $result 
+   let $all := ($result,$new) 
+ 
+   return
+      if(exists($new)) 
+      then ($new, fun:closure($new,$all))
+      else ()
+};
+
+doc()//bidder[number(increase) <= 10 and (preceding-sibling::bidder[position()=1 and number(increase) > 10] or fun:closure(.,())/preceding-sibling::bidder[position()=1 and number(increase) > 10])]
\ No newline at end of file