Merge pull request #1076 from dizzzz/bugfix/right-fold-fix

Repair fold-right

src/org/exist/xquery/value/ValueSequence.java

@@ -793,7 +793,7 @@ public Item nextItem() {
 
     private class ReverseValueSequenceIterator implements SequenceIterator {
 
-        private int pos = size - 1;
+        private int pos = size; // size is not the actual size
 
         public ReverseValueSequenceIterator() {
         }

test/src/xquery/xquery3/fn.xql

@@ -0,0 +1,16 @@
+xquery version "3.0";
+
+module namespace fn="http://exist-db.org/xquery/test/fnfunctions";
+
+declare namespace test="http://exist-db.org/xquery/xqsuite";
+
+declare
+    %test:assertEquals(0, 4, 3, 2, 1)
+function fn:fold-right() {
+let $seq := (1,2,3,4)
+return
+    fold-right ($seq, (0) , function($item as xs:integer, $accu as xs:integer*) {
+    ($accu, $item)
+    })
+};
+

test/src/xquery/xquery3/suite.xql

@@ -9,5 +9,6 @@ test:suite((
     inspect:module-functions(xs:anyURI("concat.xql")),
     inspect:module-functions(xs:anyURI("groupby.xql")),
     inspect:module-functions(xs:anyURI("flwor.xql")),
-    inspect:module-functions(xs:anyURI("typeswitch.xql"))
+    inspect:module-functions(xs:anyURI("typeswitch.xql")),
+    inspect:module-functions(xs:anyURI("fn.xql"))
 ))