--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/trunk/XQuery__XQTSNumericSubtractTests.st Wed Apr 07 12:37:26 2010 +0000
@@ -0,0 +1,3052 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+XQTSTestCase subclass:#XQTSNumericSubtractTests
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XQuery-Tests-XQTS'
+!
+
+
+!XQTSNumericSubtractTests methodsFor:'tests'!
+
+test_K_NumericSubtract_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-1 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `xs:double(6) - xs:double(2) eq 4`. :)
+(:*******************************************************:)
+xs:double(6) - xs:double(2) eq 4
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-1.txt')
+
+!
+
+test_K_NumericSubtract_10
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-10 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:float(6) - xs:decimal(2)) instance of xs:float`. :)
+(:*******************************************************:)
+(xs:float(6) - xs:decimal(2)) instance of xs:float
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-10.txt')
+
+!
+
+test_K_NumericSubtract_11
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-11 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:float(6) - xs:integer(2)) instance of xs:float`. :)
+(:*******************************************************:)
+(xs:float(6) - xs:integer(2)) instance of xs:float
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-11.txt')
+
+!
+
+test_K_NumericSubtract_12
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-12 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:integer(6) - xs:float(2)) instance of xs:float`. :)
+(:*******************************************************:)
+(xs:integer(6) - xs:float(2)) instance of xs:float
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-12.txt')
+
+!
+
+test_K_NumericSubtract_13
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-13 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:float(6) - xs:float(2)) instance of xs:float`. :)
+(:*******************************************************:)
+(xs:float(6) - xs:float(2)) instance of xs:float
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-13.txt')
+
+!
+
+test_K_NumericSubtract_14
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-14 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:decimal(6) - xs:double(2)) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:decimal(6) - xs:double(2)) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-14.txt')
+
+!
+
+test_K_NumericSubtract_15
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-15 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:double(6) - xs:decimal(2)) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:double(6) - xs:decimal(2)) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-15.txt')
+
+!
+
+test_K_NumericSubtract_16
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-16 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:double(6) - xs:float(2)) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:double(6) - xs:float(2)) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-16.txt')
+
+!
+
+test_K_NumericSubtract_17
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-17 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:float(6) - xs:double(2)) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:float(6) - xs:double(2)) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-17.txt')
+
+!
+
+test_K_NumericSubtract_18
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-18 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:double(6) - xs:integer(2)) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:double(6) - xs:integer(2)) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-18.txt')
+
+!
+
+test_K_NumericSubtract_19
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-19 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:integer(6) - xs:double(2)) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:integer(6) - xs:double(2)) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-19.txt')
+
+!
+
+test_K_NumericSubtract_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-2 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `xs:decimal(6) - xs:decimal(2) eq 4`. :)
+(:*******************************************************:)
+xs:decimal(6) - xs:decimal(2) eq 4
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-2.txt')
+
+!
+
+test_K_NumericSubtract_20
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-20 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:double(6) - xs:double(2)) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:double(6) - xs:double(2)) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-20.txt')
+
+!
+
+test_K_NumericSubtract_21
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-21 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `string(xs:float("NaN") - 3) eq "NaN"`. :)
+(:*******************************************************:)
+string(xs:float("NaN") - 3) eq "NaN"
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-21.txt')
+
+!
+
+test_K_NumericSubtract_22
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-22 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `string(xs:double("NaN") - 3) eq "NaN"`. :)
+(:*******************************************************:)
+string(xs:double("NaN") - 3) eq "NaN"
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-22.txt')
+
+!
+
+test_K_NumericSubtract_23
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-23 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `string(3 - xs:float("NaN")) eq "NaN"`. :)
+(:*******************************************************:)
+string(3 - xs:float("NaN")) eq "NaN"
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-23.txt')
+
+!
+
+test_K_NumericSubtract_24
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-24 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `string(3 - xs:double("NaN")) eq "NaN"`. :)
+(:*******************************************************:)
+string(3 - xs:double("NaN")) eq "NaN"
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-24.txt')
+
+!
+
+test_K_NumericSubtract_25
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-25 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Invoke the "-" operator with invalid operands. :)
+(:*******************************************************:)
+"3" - "3"
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+
+ self shouldRaiseError: [interpreter evaluate: query].
+!
+
+test_K_NumericSubtract_26
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-26 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Invoke the "-" operator with invalid operands. :)
+(:*******************************************************:)
+xs:untypedAtomic("3") - "3"
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+
+ self shouldRaiseError: [interpreter evaluate: query].
+!
+
+test_K_NumericSubtract_27
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-27 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:untypedAtomic("3") - 3) eq 0`. :)
+(:*******************************************************:)
+(xs:untypedAtomic("3") - 3) eq 0
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-27.txt')
+
+!
+
+test_K_NumericSubtract_28
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-28 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(3 - xs:untypedAtomic("3")) eq 0`. :)
+(:*******************************************************:)
+(3 - xs:untypedAtomic("3")) eq 0
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-28.txt')
+
+!
+
+test_K_NumericSubtract_29
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-29 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Operand(s) which are the empty sequence. :)
+(:*******************************************************:)
+empty(() - ())
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-29.txt')
+
+!
+
+test_K_NumericSubtract_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-3 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `xs:integer(6) - xs:integer(2) eq 4`. :)
+(:*******************************************************:)
+xs:integer(6) - xs:integer(2) eq 4
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-3.txt')
+
+!
+
+test_K_NumericSubtract_30
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-30 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Operand(s) which are the empty sequence. :)
+(:*******************************************************:)
+empty(() - xs:float(3))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-30.txt')
+
+!
+
+test_K_NumericSubtract_31
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-31 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Operand(s) which are the empty sequence. :)
+(:*******************************************************:)
+empty(() - xs:double(3))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-31.txt')
+
+!
+
+test_K_NumericSubtract_32
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-32 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:untypedAtomic("3") - xs:untypedAtomic("3")) eq 0`. :)
+(:*******************************************************:)
+(xs:untypedAtomic("3") - xs:untypedAtomic("3")) eq 0
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-32.txt')
+
+!
+
+test_K_NumericSubtract_33
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-33 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:untypedAtomic("3") - xs:untypedAtomic("3")) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:untypedAtomic("3") -
+ xs:untypedAtomic("3")) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-33.txt')
+
+!
+
+test_K_NumericSubtract_34
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-34 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:untypedAtomic("3") - 1.1) instance of xs:double`. :)
+(:*******************************************************:)
+(xs:untypedAtomic("3") - 1.1) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-34.txt')
+
+!
+
+test_K_NumericSubtract_35
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-35 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(1.1 - xs:untypedAtomic("3")) instance of xs:double`. :)
+(:*******************************************************:)
+(1.1 - xs:untypedAtomic("3")) instance of xs:double
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-35.txt')
+
+!
+
+test_K_NumericSubtract_36
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-36 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Substracting zero, with complex operands. Implementations supporting the static typing feature may raise XPTY0004. :)
+(:*******************************************************:)
+1 eq (remove((current-time(), 1), 1) - 0)
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-36.txt')
+
+!
+
+test_K_NumericSubtract_37
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-37 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Adding zero, with complex operands. Implementations supporting the static typing feature may raise XPTY0004. :)
+(:*******************************************************:)
+1 eq (remove((current-time(), 1), 1) + 0)
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-37.txt')
+
+!
+
+test_K_NumericSubtract_38
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-38 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: Adding zero, with complex operands. Implementations supporting the static typing feature may raise XPTY0004. :)
+(:*******************************************************:)
+1 eq (0 + remove((current-time(), 1), 1))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-38.txt')
+
+!
+
+test_K_NumericSubtract_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-4 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `xs:float(5) - xs:float(1) eq 4`. :)
+(:*******************************************************:)
+xs:float(5) - xs:float(1) eq 4
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-4.txt')
+
+!
+
+test_K_NumericSubtract_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-5 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:decimal(6) - xs:integer(2)) instance of xs:decimal`. :)
+(:*******************************************************:)
+(xs:decimal(6) - xs:integer(2)) instance of xs:decimal
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-5.txt')
+
+!
+
+test_K_NumericSubtract_6
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-6 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:integer(6) - xs:decimal(2)) instance of xs:decimal`. :)
+(:*******************************************************:)
+(xs:integer(6) - xs:decimal(2)) instance of xs:decimal
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-6.txt')
+
+!
+
+test_K_NumericSubtract_7
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-7 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:integer(6) - xs:integer(2)) instance of xs:integer`. :)
+(:*******************************************************:)
+(xs:integer(6) - xs:integer(2)) instance of xs:integer
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-7.txt')
+
+!
+
+test_K_NumericSubtract_8
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-8 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:decimal(6) - xs:decimal(2)) instance of xs:decimal`. :)
+(:*******************************************************:)
+(xs:decimal(6) - xs:decimal(2)) instance of xs:decimal
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-8.txt')
+
+!
+
+test_K_NumericSubtract_9
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericSubtract-9 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(xs:decimal(6) - xs:float(2)) instance of xs:float`. :)
+(:*******************************************************:)
+(xs:decimal(6) - xs:float(2)) instance of xs:float
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/K-NumericSubtract-9.txt')
+
+!
+
+test_op_numeric_subtractdbl2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdbl2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:double(lower bound) :)
+(:$arg2 = xs:double(lower bound) :)
+(:*******************************************************:)
+
+xs:double("-1.7976931348623157E308") - xs:double("-1.7976931348623157E308")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdbl2args-1.txt')
+
+!
+
+test_op_numeric_subtractdbl2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdbl2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:double(mid range) :)
+(:$arg2 = xs:double(lower bound) :)
+(:*******************************************************:)
+
+xs:double("0") - xs:double("-1.7976931348623157E308")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdbl2args-2.txt')
+
+!
+
+test_op_numeric_subtractdbl2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdbl2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:double(upper bound) :)
+(:$arg2 = xs:double(lower bound) :)
+(:*******************************************************:)
+
+xs:double("0") - xs:double("-1.7976931348623157E308")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdbl2args-3.txt')
+
+!
+
+test_op_numeric_subtractdbl2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdbl2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:double(lower bound) :)
+(:$arg2 = xs:double(mid range) :)
+(:*******************************************************:)
+
+xs:double("-1.7976931348623157E308") - xs:double("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdbl2args-4.txt')
+
+!
+
+test_op_numeric_subtractdbl2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdbl2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:double(lower bound) :)
+(:$arg2 = xs:double(upper bound) :)
+(:*******************************************************:)
+
+xs:double("0") - xs:double("1.7976931348623157E308")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdbl2args-5.txt')
+
+!
+
+test_op_numeric_subtractdec2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdec2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:decimal(lower bound) :)
+(:$arg2 = xs:decimal(lower bound) :)
+(:*******************************************************:)
+
+xs:decimal("-999999999999999999") - xs:decimal("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdec2args-1.txt')
+
+!
+
+test_op_numeric_subtractdec2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdec2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Tue Apr 12 16:28:58 GMT-05:00 2005 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:decimal(mid range) :)
+(:$arg2 = xs:decimal(lower bound) :)
+(:*******************************************************:)
+
+xs:decimal("0") - xs:decimal("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdec2args-2.txt')
+
+!
+
+test_op_numeric_subtractdec2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdec2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Tue Apr 12 16:28:58 GMT-05:00 2005 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:decimal(upper bound) :)
+(:$arg2 = xs:decimal(lower bound) :)
+(:*******************************************************:)
+
+xs:decimal("0") - xs:decimal("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdec2args-3.txt')
+
+!
+
+test_op_numeric_subtractdec2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdec2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:decimal(lower bound) :)
+(:$arg2 = xs:decimal(mid range) :)
+(:*******************************************************:)
+
+xs:decimal("-382624808391485160") - xs:decimal("617375191608514839")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdec2args-4.txt')
+
+!
+
+test_op_numeric_subtractdec2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractdec2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:decimal(lower bound) :)
+(:$arg2 = xs:decimal(upper bound) :)
+(:*******************************************************:)
+
+xs:decimal("0") - xs:decimal("999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractdec2args-5.txt')
+
+!
+
+test_op_numeric_subtractflt2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractflt2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:float(lower bound) :)
+(:$arg2 = xs:float(lower bound) :)
+(:*******************************************************:)
+
+xs:float("-3.4028235E38") - xs:float("-3.4028235E38")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractflt2args-1.txt')
+
+!
+
+test_op_numeric_subtractflt2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractflt2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:float(mid range) :)
+(:$arg2 = xs:float(lower bound) :)
+(:*******************************************************:)
+
+xs:float("0") - xs:float("-3.4028235E38")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractflt2args-2.txt')
+
+!
+
+test_op_numeric_subtractflt2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractflt2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:float(upper bound) :)
+(:$arg2 = xs:float(lower bound) :)
+(:*******************************************************:)
+
+xs:float("0") - xs:float("-3.4028235E38")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractflt2args-3.txt')
+
+!
+
+test_op_numeric_subtractflt2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractflt2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:float(lower bound) :)
+(:$arg2 = xs:float(mid range) :)
+(:*******************************************************:)
+
+xs:float("-3.4028235E38") - xs:float("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractflt2args-4.txt')
+
+!
+
+test_op_numeric_subtractflt2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractflt2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:float(lower bound) :)
+(:$arg2 = xs:float(upper bound) :)
+(:*******************************************************:)
+
+xs:float("0") - xs:float("3.4028235E38")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractflt2args-5.txt')
+
+!
+
+test_op_numeric_subtractint2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractint2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:int(lower bound) :)
+(:$arg2 = xs:int(lower bound) :)
+(:*******************************************************:)
+
+xs:int("-2147483648") - xs:int("-2147483648")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractint2args-1.txt')
+
+!
+
+test_op_numeric_subtractint2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractint2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:int(mid range) :)
+(:$arg2 = xs:int(lower bound) :)
+(:*******************************************************:)
+
+xs:int("-1873914410") - xs:int("-2147483648")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractint2args-2.txt')
+
+!
+
+test_op_numeric_subtractint2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractint2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:int(upper bound) :)
+(:$arg2 = xs:int(lower bound) :)
+(:*******************************************************:)
+
+xs:int("-1") - xs:int("-2147483648")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractint2args-3.txt')
+
+!
+
+test_op_numeric_subtractint2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractint2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:int(lower bound) :)
+(:$arg2 = xs:int(mid range) :)
+(:*******************************************************:)
+
+xs:int("-2147483648") - xs:int("-1873914410")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractint2args-4.txt')
+
+!
+
+test_op_numeric_subtractint2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractint2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:int(lower bound) :)
+(:$arg2 = xs:int(upper bound) :)
+(:*******************************************************:)
+
+xs:int("-1") - xs:int("2147483647")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractint2args-5.txt')
+
+!
+
+test_op_numeric_subtractintg2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractintg2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:integer(lower bound) :)
+(:$arg2 = xs:integer(lower bound) :)
+(:*******************************************************:)
+
+xs:integer("-999999999999999999") - xs:integer("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractintg2args-1.txt')
+
+!
+
+test_op_numeric_subtractintg2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractintg2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:integer(mid range) :)
+(:$arg2 = xs:integer(lower bound) :)
+(:*******************************************************:)
+
+xs:integer("0") - xs:integer("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractintg2args-2.txt')
+
+!
+
+test_op_numeric_subtractintg2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractintg2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:integer(upper bound) :)
+(:$arg2 = xs:integer(lower bound) :)
+(:*******************************************************:)
+
+xs:integer("0") - xs:integer("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractintg2args-3.txt')
+
+!
+
+test_op_numeric_subtractintg2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractintg2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:integer(lower bound) :)
+(:$arg2 = xs:integer(mid range) :)
+(:*******************************************************:)
+
+xs:integer("-169006502882975695") - xs:integer("830993497117024304")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractintg2args-4.txt')
+
+!
+
+test_op_numeric_subtractintg2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractintg2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:integer(lower bound) :)
+(:$arg2 = xs:integer(upper bound) :)
+(:*******************************************************:)
+
+xs:integer("0") - xs:integer("999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractintg2args-5.txt')
+
+!
+
+test_op_numeric_subtractlng2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractlng2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:long(lower bound) :)
+(:$arg2 = xs:long(lower bound) :)
+(:*******************************************************:)
+
+xs:long("-92233720368547758") - xs:long("-92233720368547758")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractlng2args-1.txt')
+
+!
+
+test_op_numeric_subtractlng2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractlng2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:long(mid range) :)
+(:$arg2 = xs:long(lower bound) :)
+(:*******************************************************:)
+
+xs:long("-47175562203048468") - xs:long("-92233720368547758")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractlng2args-2.txt')
+
+!
+
+test_op_numeric_subtractlng2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractlng2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:long(upper bound) :)
+(:$arg2 = xs:long(lower bound) :)
+(:*******************************************************:)
+
+xs:long("0") - xs:long("-92233720368547758")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractlng2args-3.txt')
+
+!
+
+test_op_numeric_subtractlng2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractlng2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:long(lower bound) :)
+(:$arg2 = xs:long(mid range) :)
+(:*******************************************************:)
+
+xs:long("-92233720368547758") - xs:long("-47175562203048468")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractlng2args-4.txt')
+
+!
+
+test_op_numeric_subtractlng2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractlng2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:long(lower bound) :)
+(:$arg2 = xs:long(upper bound) :)
+(:*******************************************************:)
+
+xs:long("0") - xs:long("92233720368547758")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractlng2args-5.txt')
+
+!
+
+test_op_numeric_subtractmix2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-1.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test with () as one operand should return null :)
+(:*******************************************************:)
+
+1 - ()
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractmix2args-1.txt')
+
+!
+
+test_op_numeric_subtractmix2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-2.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test pass string for second operator :)
+(:*******************************************************:)
+
+1 - "1"
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+
+ self shouldRaiseError: [interpreter evaluate: query].
+!
+
+test_op_numeric_subtractmix2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-3.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test, second operator cast string to integer :)
+(:*******************************************************:)
+
+1 - xs:integer("1")
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractmix2args-3.txt')
+
+!
+
+test_op_numeric_subtractmix2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-4.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test, second operator is a node, atomization applied :)
+(:*******************************************************:)
+
+3 - <a> 2 </a>
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractmix2args-4.txt')
+
+!
+
+test_op_numeric_subtractmix2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-5.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test, second operator is a node, atomization applied :)
+(:*******************************************************:)
+
+3 - <a> <b> 2 </b> </a>
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractmix2args-5.txt')
+
+!
+
+test_op_numeric_subtractmix2args_6
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-6.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test, second operator node which is not atomizable :)
+(:*******************************************************:)
+
+3 - <a> <b> 2</b> <c> 2</c> </a>
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+
+ self shouldRaiseError: [interpreter evaluate: query].
+!
+
+test_op_numeric_subtractmix2args_7
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-7.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test, two operands are nodes :)
+(:*******************************************************:)
+
+<a> 2 </a> - <b> 1 </b>
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractmix2args-7.txt')
+
+!
+
+test_op_numeric_subtractmix2args_8
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-8.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test, second operator is a node, atomizable but not castable to integer :)
+(:*******************************************************:)
+
+1 - <a> x </a>
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+
+ self shouldRaiseError: [interpreter evaluate: query].
+!
+
+test_op_numeric_subtractmix2args_9
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: op-numeric-subtractmix2args-9.xq :)
+(: Written By: Ravindranath Chennoju :)
+(: Date: Wed Feb 2 15:07:00 2005 :)
+(: Purpose: Simple subtraction test pass an empty node for second operator :)
+(:*******************************************************:)
+
+1 - <a/>
+
+
+
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+
+ self shouldRaiseError: [interpreter evaluate: query].
+!
+
+test_op_numeric_subtractnint2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnint2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:negativeInteger(lower bound) :)
+(:$arg2 = xs:negativeInteger(mid range) :)
+(:*******************************************************:)
+
+xs:negativeInteger("-999999999999999999") - xs:negativeInteger("-297014075999096793")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnint2args-1.txt')
+
+!
+
+test_op_numeric_subtractnint2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnint2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:negativeInteger(lower bound) :)
+(:$arg2 = xs:negativeInteger(upper bound) :)
+(:*******************************************************:)
+
+xs:negativeInteger("-999999999999999999") - xs:negativeInteger("-1")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnint2args-2.txt')
+
+!
+
+test_op_numeric_subtractnni2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnni2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonNegativeInteger(lower bound) :)
+(:$arg2 = xs:nonNegativeInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:nonNegativeInteger("0") - xs:nonNegativeInteger("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnni2args-1.txt')
+
+!
+
+test_op_numeric_subtractnni2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnni2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonNegativeInteger(mid range) :)
+(:$arg2 = xs:nonNegativeInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:nonNegativeInteger("303884545991464527") - xs:nonNegativeInteger("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnni2args-2.txt')
+
+!
+
+test_op_numeric_subtractnni2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnni2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonNegativeInteger(upper bound) :)
+(:$arg2 = xs:nonNegativeInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:nonNegativeInteger("999999999999999999") - xs:nonNegativeInteger("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnni2args-3.txt')
+
+!
+
+test_op_numeric_subtractnni2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnni2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonNegativeInteger(lower bound) :)
+(:$arg2 = xs:nonNegativeInteger(mid range) :)
+(:*******************************************************:)
+
+xs:nonNegativeInteger("303884545991464527") - xs:nonNegativeInteger("303884545991464527")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnni2args-4.txt')
+
+!
+
+test_op_numeric_subtractnni2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnni2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonNegativeInteger(lower bound) :)
+(:$arg2 = xs:nonNegativeInteger(upper bound) :)
+(:*******************************************************:)
+
+xs:nonNegativeInteger("999999999999999999") - xs:nonNegativeInteger("999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnni2args-5.txt')
+
+!
+
+test_op_numeric_subtractnpi2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnpi2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonPositiveInteger(lower bound) :)
+(:$arg2 = xs:nonPositiveInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:nonPositiveInteger("-999999999999999999") - xs:nonPositiveInteger("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnpi2args-1.txt')
+
+!
+
+test_op_numeric_subtractnpi2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnpi2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonPositiveInteger(mid range) :)
+(:$arg2 = xs:nonPositiveInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:nonPositiveInteger("-999999999999999999") - xs:nonPositiveInteger("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnpi2args-2.txt')
+
+!
+
+test_op_numeric_subtractnpi2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnpi2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonPositiveInteger(upper bound) :)
+(:$arg2 = xs:nonPositiveInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:nonPositiveInteger("-999999999999999999") - xs:nonPositiveInteger("-999999999999999999")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnpi2args-3.txt')
+
+!
+
+test_op_numeric_subtractnpi2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnpi2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonPositiveInteger(lower bound) :)
+(:$arg2 = xs:nonPositiveInteger(mid range) :)
+(:*******************************************************:)
+
+xs:nonPositiveInteger("-999999999999999999") - xs:nonPositiveInteger("-475688437271870490")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnpi2args-4.txt')
+
+!
+
+test_op_numeric_subtractnpi2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractnpi2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:nonPositiveInteger(lower bound) :)
+(:$arg2 = xs:nonPositiveInteger(upper bound) :)
+(:*******************************************************:)
+
+xs:nonPositiveInteger("-999999999999999999") - xs:nonPositiveInteger("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractnpi2args-5.txt')
+
+!
+
+test_op_numeric_subtractpint2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractpint2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:positiveInteger(mid range) :)
+(:$arg2 = xs:positiveInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:positiveInteger("52704602390610033") - xs:positiveInteger("1")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractpint2args-1.txt')
+
+!
+
+test_op_numeric_subtractpint2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractpint2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:positiveInteger(upper bound) :)
+(:$arg2 = xs:positiveInteger(lower bound) :)
+(:*******************************************************:)
+
+xs:positiveInteger("999999999999999999") - xs:positiveInteger("1")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractpint2args-2.txt')
+
+!
+
+test_op_numeric_subtractpint2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractpint2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:positiveInteger(lower bound) :)
+(:$arg2 = xs:positiveInteger(mid range) :)
+(:*******************************************************:)
+
+xs:positiveInteger("52704602390610034") - xs:positiveInteger("52704602390610033")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractpint2args-3.txt')
+
+!
+
+test_op_numeric_subtractsht2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractsht2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:short(lower bound) :)
+(:$arg2 = xs:short(lower bound) :)
+(:*******************************************************:)
+
+xs:short("-32768") - xs:short("-32768")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractsht2args-1.txt')
+
+!
+
+test_op_numeric_subtractsht2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractsht2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:short(mid range) :)
+(:$arg2 = xs:short(lower bound) :)
+(:*******************************************************:)
+
+xs:short("-5324") - xs:short("-32768")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractsht2args-2.txt')
+
+!
+
+test_op_numeric_subtractsht2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractsht2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:short(upper bound) :)
+(:$arg2 = xs:short(lower bound) :)
+(:*******************************************************:)
+
+xs:short("-1") - xs:short("-32768")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractsht2args-3.txt')
+
+!
+
+test_op_numeric_subtractsht2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractsht2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:short(lower bound) :)
+(:$arg2 = xs:short(mid range) :)
+(:*******************************************************:)
+
+xs:short("-32768") - xs:short("-5324")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractsht2args-4.txt')
+
+!
+
+test_op_numeric_subtractsht2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractsht2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:short(lower bound) :)
+(:$arg2 = xs:short(upper bound) :)
+(:*******************************************************:)
+
+xs:short("-1") - xs:short("32767")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractsht2args-5.txt')
+
+!
+
+test_op_numeric_subtractulng2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractulng2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedLong(lower bound) :)
+(:$arg2 = xs:unsignedLong(lower bound) :)
+(:*******************************************************:)
+
+xs:unsignedLong("0") - xs:unsignedLong("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractulng2args-1.txt')
+
+!
+
+test_op_numeric_subtractulng2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractulng2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedLong(mid range) :)
+(:$arg2 = xs:unsignedLong(lower bound) :)
+(:*******************************************************:)
+
+xs:unsignedLong("130747108607674654") - xs:unsignedLong("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractulng2args-2.txt')
+
+!
+
+test_op_numeric_subtractulng2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractulng2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedLong(upper bound) :)
+(:$arg2 = xs:unsignedLong(lower bound) :)
+(:*******************************************************:)
+
+xs:unsignedLong("184467440737095516") - xs:unsignedLong("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractulng2args-3.txt')
+
+!
+
+test_op_numeric_subtractulng2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractulng2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedLong(lower bound) :)
+(:$arg2 = xs:unsignedLong(mid range) :)
+(:*******************************************************:)
+
+xs:unsignedLong("130747108607674654") - xs:unsignedLong("130747108607674654")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractulng2args-4.txt')
+
+!
+
+test_op_numeric_subtractulng2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractulng2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedLong(lower bound) :)
+(:$arg2 = xs:unsignedLong(upper bound) :)
+(:*******************************************************:)
+
+xs:unsignedLong("184467440737095516") - xs:unsignedLong("184467440737095516")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractulng2args-5.txt')
+
+!
+
+test_op_numeric_subtractusht2args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractusht2args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedShort(lower bound) :)
+(:$arg2 = xs:unsignedShort(lower bound) :)
+(:*******************************************************:)
+
+xs:unsignedShort("0") - xs:unsignedShort("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractusht2args-1.txt')
+
+!
+
+test_op_numeric_subtractusht2args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractusht2args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedShort(mid range) :)
+(:$arg2 = xs:unsignedShort(lower bound) :)
+(:*******************************************************:)
+
+xs:unsignedShort("44633") - xs:unsignedShort("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractusht2args-2.txt')
+
+!
+
+test_op_numeric_subtractusht2args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractusht2args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:15 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedShort(upper bound) :)
+(:$arg2 = xs:unsignedShort(lower bound) :)
+(:*******************************************************:)
+
+xs:unsignedShort("65535") - xs:unsignedShort("0")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractusht2args-3.txt')
+
+!
+
+test_op_numeric_subtractusht2args_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractusht2args-4 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedShort(lower bound) :)
+(:$arg2 = xs:unsignedShort(mid range) :)
+(:*******************************************************:)
+
+xs:unsignedShort("44633") - xs:unsignedShort("44633")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractusht2args-4.txt')
+
+!
+
+test_op_numeric_subtractusht2args_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-subtractusht2args-5 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-subtract" operator :)
+(: with the arguments set as follows: :)
+(:$arg1 = xs:unsignedShort(lower bound) :)
+(:$arg2 = xs:unsignedShort(upper bound) :)
+(:*******************************************************:)
+
+xs:unsignedShort("65535") - xs:unsignedShort("65535")
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericSubtract/op-numeric-subtractusht2args-5.txt')
+
+! !
+
+!XQTSNumericSubtractTests class methodsFor:'documentation'!
+
+version_SVN
+ ^ '$Id$'
+! !