1
import module namespace debug = "http://zorba.io/modules/util-tests";
3
declare function local:is-cached($uuids, $old-uuids)
5
if ($uuids = $old-uuids)
11
variable $node := <a/>;
12
variable $object := {"a" : 1};
13
variable $array := [1];
14
variable $array-2 := [2];
19
debug:test-02-sd(xs:int(1)),
20
debug:test-02-sd(xs:integer(1)),
21
debug:test-02-sd($node),
22
debug:test-02-sd($object),
23
debug:test-02-sd($array),
24
debug:test-02-sd($node),
25
debug:test-02-sd($object),
26
debug:test-02-sd($array),
27
debug:test-02-sd($array-2)
29
let $old-values := (for $i in (1 to 10) return $old[$i * 2 - 1])
30
let $old-uuids := (for $i in (1 to 10) return $old[$i * 2])
34
debug:test-02-sd(xs:integer(1)),
35
debug:test-02-sd($node),
36
debug:test-02-sd($object),
37
debug:test-02-sd($array),
38
debug:test-02-sd($array-2)
40
let $expected-old-values := (for $i in (1 to 6) return $equal[$i * 2 -1])
41
let $expected-old-uuids := (for $i in (1 to 6) return $equal[$i * 2])
44
debug:test-02-sd(xs:long(1)),
45
debug:test-02-sd(<a/>),
46
debug:test-02-sd({"a" : 1}),
47
debug:test-02-sd([1]),
50
let $expected-new-values := (for $i in (1 to 5) return $re-evaluated[$i * 2 - 1])
51
let $expected-new-uuids := (for $i in (1 to 5) return $re-evaluated[$i * 2])
55
return "Called with " || $old-values[$i] || ": NOT CACHED" || " ",
57
return "Called with " || $expected-old-values[$j] || ": " || local:is-cached($expected-old-uuids[$j], $old-uuids) || " ",
59
return "Called with " || $expected-new-values[$k] || ": " || local:is-cached($expected-new-uuids[$k], $old-uuids) || " "
b'\\ No newline at end of file'