-
-
Notifications
You must be signed in to change notification settings - Fork 179
/
numeric-add.xqm
71 lines (63 loc) · 2.05 KB
/
numeric-add.xqm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
(:
: eXist-db Open Source Native XML Database
: Copyright (C) 2001 The eXist-db Authors
:
: info@exist-db.org
: http://www.exist-db.org
:
: This library is free software; you can redistribute it and/or
: modify it under the terms of the GNU Lesser General Public
: License as published by the Free Software Foundation; either
: version 2.1 of the License, or (at your option) any later version.
:
: This library is distributed in the hope that it will be useful,
: but WITHOUT ANY WARRANTY; without even the implied warranty of
: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
: Lesser General Public License for more details.
:
: You should have received a copy of the GNU Lesser General Public
: License along with this library; if not, write to the Free Software
: Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
:)
xquery version "3.1";
(:~
: Tests for the op:numeric-add operator.
:)
module namespace ona = "http://exist-db.org/test/op-numeric-add";
declare namespace test = "http://exist-db.org/xquery/xqsuite";
declare
%test:args("1.13", "1.13")
%test:assertEquals("2.2599999952316283")
function ona:numeric-add-float-double($f as xs:float, $d as xs:double) {
$f + $d
};
declare
%test:args("1.13", "1.13")
%test:assertEquals("2.2599999952316283")
function ona:numeric-add-double-float($d as xs:double, $f as xs:float) {
$d + $f
};
declare
%test:args("1.13", "1.13")
%test:assertEquals("2.26")
function ona:numeric-add-double-decimal($d as xs:double, $dec as xs:decimal) {
$d + $dec
};
declare
%test:args("1.13", "1.13")
%test:assertEquals("2.26")
function ona:numeric-add-decimal-double($dec as xs:decimal, $d as xs:double) {
$dec + $d
};
declare
%test:args("1.13", "1.13")
%test:assertEquals("2.26")
function ona:numeric-add-decimal-float($dec as xs:decimal, $f as xs:float) {
$dec + $f
};
declare
%test:args("1.13", "1.13")
%test:assertEquals("2.26")
function ona:numeric-add-float-decimal($f as xs:float, $dec as xs:decimal) {
$f + $dec
};