X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=tests%2Fxpath-pt%2Fxquery%2FF4.xql;fp=tests%2Fxpath-pt%2Fxquery%2FF4.xql;h=f1ceaac2d478c1dfd3833f138d027481bcf3e996;hb=0b725bb9913ff83cf73c5489f3b8582b881e6681;hp=0000000000000000000000000000000000000000;hpb=83aa6cf8a120ea6681402ce42ae56631fca1ddf4;p=SXSI%2Fxpathcomp.git

diff --git a/tests/xpath-pt/xquery/F4.xql b/tests/xpath-pt/xquery/F4.xql
new file mode 100644
index 0000000..f1ceaac
--- /dev/null
+++ b/tests/xpath-pt/xquery/F4.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/seller/id(@person)/watches/watch/id(@open_auction)
+   let $new := $current except $result 
+   let $all := ($result,$new) 
+ 
+   return
+      if(exists($new)) 
+      then ($new, fun:closure($new,$all))
+      else ()
+};
+
+doc()/site/open_auctions/open_auction[position() <= 5]/fun:closure(.,())/interval