--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/trunk/XQuery__XQTSNumericUnaryPlusTests.st Wed Apr 07 12:37:26 2010 +0000
@@ -0,0 +1,1458 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+XQTSTestCase subclass:#XQTSNumericUnaryPlusTests
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XQuery-Tests-XQTS'
+!
+
+
+!XQTSNumericUnaryPlusTests methodsFor:'tests'!
+
+test_K_NumericUnaryPlus_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-1 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: No unary operator is available for xs:string. :)
+(:*******************************************************:)
++"a string"
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+
+ self shouldRaiseError: [interpreter evaluate: query].
+!
+
+test_K_NumericUnaryPlus_10
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-10 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `-+-+-+-+-+-+-+-3 eq 3`. :)
+(:*******************************************************:)
+-+-+-+-+-+-+-+-3 eq 3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-10.txt')
+
+!
+
+test_K_NumericUnaryPlus_11
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-11 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `-+-+-+-+-+-++-+-++-+-+-+-+++3 eq 3`. :)
+(:*******************************************************:)
+-+-+-+-+-+-++-+-++-+-+-+-+++3 eq 3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-11.txt')
+
+!
+
+test_K_NumericUnaryPlus_12
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-12 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `+++3 eq ++3`. :)
+(:*******************************************************:)
++++3 eq ++3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-12.txt')
+
+!
+
+test_K_NumericUnaryPlus_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-2 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(+3) eq 3`. :)
+(:*******************************************************:)
+(+3) eq 3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-2.txt')
+
+!
+
+test_K_NumericUnaryPlus_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-3 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(+3) eq +3`. :)
+(:*******************************************************:)
+(+3) eq +3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-3.txt')
+
+!
+
+test_K_NumericUnaryPlus_4
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-4 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `(+3) eq +(3)`. :)
+(:*******************************************************:)
+(+3) eq +(3)
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-4.txt')
+
+!
+
+test_K_NumericUnaryPlus_5
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-5 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `+(3) eq 3`. :)
+(:*******************************************************:)
++(3) eq 3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-5.txt')
+
+!
+
+test_K_NumericUnaryPlus_6
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-6 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `+(3) eq +3`. :)
+(:*******************************************************:)
++(3) eq +3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-6.txt')
+
+!
+
+test_K_NumericUnaryPlus_7
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-7 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `-(3) ne 3`. :)
+(:*******************************************************:)
+-(3) ne 3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-7.txt')
+
+!
+
+test_K_NumericUnaryPlus_8
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-8 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `----------3 eq 3`. :)
+(:*******************************************************:)
+----------3 eq 3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-8.txt')
+
+!
+
+test_K_NumericUnaryPlus_9
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(: Test: K-NumericUnaryPlus-9 :)
+(: Written by: Frans Englich :)
+(: Date: 2006-10-05T18:29:36+02:00 :)
+(: Purpose: A test whose essence is: `+++++++++++3 eq 3`. :)
+(:*******************************************************:)
++++++++++++3 eq 3
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/K-NumericUnaryPlus-9.txt')
+
+!
+
+test_op_numeric_unary_plusdbl1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusdbl1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:double(lower bound) :)
+(:*******************************************************:)
+
++(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/NumericUnaryPlus/op-numeric-unary-plusdbl1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusdbl1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusdbl1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:double(mid range) :)
+(:*******************************************************:)
+
++(xs:double("0"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusdbl1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusdbl1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusdbl1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:double(upper bound) :)
+(:*******************************************************:)
+
++(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/NumericUnaryPlus/op-numeric-unary-plusdbl1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusdec1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusdec1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:decimal(lower bound) :)
+(:*******************************************************:)
+
++(xs:decimal("-999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusdec1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusdec1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusdec1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:decimal(mid range) :)
+(:*******************************************************:)
+
++(xs:decimal("617375191608514839"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusdec1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusdec1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusdec1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:decimal(upper bound) :)
+(:*******************************************************:)
+
++(xs:decimal("999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusdec1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusflt1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusflt1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:float(lower bound) :)
+(:*******************************************************:)
+
++(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/NumericUnaryPlus/op-numeric-unary-plusflt1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusflt1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusflt1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:float(mid range) :)
+(:*******************************************************:)
+
++(xs:float("0"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusflt1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusflt1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusflt1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:float(upper bound) :)
+(:*******************************************************:)
+
++(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/NumericUnaryPlus/op-numeric-unary-plusflt1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusint1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusint1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:int(lower bound) :)
+(:*******************************************************:)
+
++(xs:int("-2147483648"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusint1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusint1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusint1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:int(mid range) :)
+(:*******************************************************:)
+
++(xs:int("-1873914410"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusint1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusint1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusint1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:int(upper bound) :)
+(:*******************************************************:)
+
++(xs:int("2147483647"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusint1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusintg1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusintg1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:integer(lower bound) :)
+(:*******************************************************:)
+
++(xs:integer("-999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusintg1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusintg1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusintg1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:integer(mid range) :)
+(:*******************************************************:)
+
++(xs:integer("830993497117024304"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusintg1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusintg1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusintg1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:integer(upper bound) :)
+(:*******************************************************:)
+
++(xs:integer("999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusintg1args-3.txt')
+
+!
+
+test_op_numeric_unary_pluslng1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-pluslng1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:long(lower bound) :)
+(:*******************************************************:)
+
++(xs:long("-92233720368547758"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-pluslng1args-1.txt')
+
+!
+
+test_op_numeric_unary_pluslng1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-pluslng1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:long(mid range) :)
+(:*******************************************************:)
+
++(xs:long("-47175562203048468"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-pluslng1args-2.txt')
+
+!
+
+test_op_numeric_unary_pluslng1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-pluslng1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:long(upper bound) :)
+(:*******************************************************:)
+
++(xs:long("92233720368547758"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-pluslng1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusnint1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnint1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:negativeInteger(lower bound) :)
+(:*******************************************************:)
+
++(xs:negativeInteger("-999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnint1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusnint1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnint1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:negativeInteger(mid range) :)
+(:*******************************************************:)
+
++(xs:negativeInteger("-297014075999096793"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnint1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusnint1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnint1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:negativeInteger(upper bound) :)
+(:*******************************************************:)
+
++(xs:negativeInteger("-1"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnint1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusnni1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnni1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:nonNegativeInteger(lower bound) :)
+(:*******************************************************:)
+
++(xs:nonNegativeInteger("0"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnni1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusnni1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnni1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:nonNegativeInteger(mid range) :)
+(:*******************************************************:)
+
++(xs:nonNegativeInteger("303884545991464527"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnni1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusnni1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnni1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:nonNegativeInteger(upper bound) :)
+(:*******************************************************:)
+
++(xs:nonNegativeInteger("999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnni1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusnpi1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnpi1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:nonPositiveInteger(lower bound) :)
+(:*******************************************************:)
+
++(xs:nonPositiveInteger("-999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnpi1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusnpi1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnpi1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:nonPositiveInteger(mid range) :)
+(:*******************************************************:)
+
++(xs:nonPositiveInteger("-475688437271870490"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnpi1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusnpi1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusnpi1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:nonPositiveInteger(upper bound) :)
+(:*******************************************************:)
+
++(xs:nonPositiveInteger("0"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusnpi1args-3.txt')
+
+!
+
+test_op_numeric_unary_pluspint1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-pluspint1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:positiveInteger(lower bound) :)
+(:*******************************************************:)
+
++(xs:positiveInteger("1"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-pluspint1args-1.txt')
+
+!
+
+test_op_numeric_unary_pluspint1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-pluspint1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:positiveInteger(mid range) :)
+(:*******************************************************:)
+
++(xs:positiveInteger("52704602390610033"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-pluspint1args-2.txt')
+
+!
+
+test_op_numeric_unary_pluspint1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-pluspint1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:positiveInteger(upper bound) :)
+(:*******************************************************:)
+
++(xs:positiveInteger("999999999999999999"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-pluspint1args-3.txt')
+
+!
+
+test_op_numeric_unary_plussht1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plussht1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:short(lower bound) :)
+(:*******************************************************:)
+
++(xs:short("-32768"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plussht1args-1.txt')
+
+!
+
+test_op_numeric_unary_plussht1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plussht1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:short(mid range) :)
+(:*******************************************************:)
+
++(xs:short("-5324"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plussht1args-2.txt')
+
+!
+
+test_op_numeric_unary_plussht1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plussht1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:short(upper bound) :)
+(:*******************************************************:)
+
++(xs:short("32767"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plussht1args-3.txt')
+
+!
+
+test_op_numeric_unary_plusulng1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusulng1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:unsignedLong(lower bound) :)
+(:*******************************************************:)
+
++(xs:unsignedLong("0"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusulng1args-1.txt')
+
+!
+
+test_op_numeric_unary_plusulng1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusulng1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:unsignedLong(mid range) :)
+(:*******************************************************:)
+
++(xs:unsignedLong("130747108607674654"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusulng1args-2.txt')
+
+!
+
+test_op_numeric_unary_plusulng1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plusulng1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:unsignedLong(upper bound) :)
+(:*******************************************************:)
+
++(xs:unsignedLong("184467440737095516"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plusulng1args-3.txt')
+
+!
+
+test_op_numeric_unary_plususht1args_1
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plususht1args-1 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:unsignedShort(lower bound) :)
+(:*******************************************************:)
+
++(xs:unsignedShort("0"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plususht1args-1.txt')
+
+!
+
+test_op_numeric_unary_plususht1args_2
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plususht1args-2 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:unsignedShort(mid range) :)
+(:*******************************************************:)
+
++(xs:unsignedShort("44633"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plususht1args-2.txt')
+
+!
+
+test_op_numeric_unary_plususht1args_3
+
+ | query result |
+
+ query := '
+ (:*******************************************************:)
+(:Test: op-numeric-unary-plususht1args-3 :)
+(:Written By: Carmelo Montanez :)
+(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004 :)
+(:Purpose: Evaluates The "op:numeric-unary-plus" operator:)
+(: with the arguments set as follows: :)
+(:$arg = xs:unsignedShort(upper bound) :)
+(:*******************************************************:)
+
++(xs:unsignedShort("65535"))
+
+'.
+
+ self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.
+
+
+ result := interpreter evaluate: query.
+ self
+ assert: (self xqtsResultTextFromResult: result)
+ = (self xqtsResultTextFromFile:
+'Expressions/Operators/ArithExpr/NumericOpr/NumericUnaryPlus/op-numeric-unary-plususht1args-3.txt')
+
+! !
+
+!XQTSNumericUnaryPlusTests class methodsFor:'documentation'!
+
+version_SVN
+ ^ '$Id$'
+! !