From c7da1b4b699a9cdde5566a66dc1acb179eacf76c Mon Sep 17 00:00:00 2001 From: ncave <777696+ncave@users.noreply.github.com> Date: Fri, 9 Feb 2018 10:02:52 -0800 Subject: [PATCH] added more tests --- tests/service/ExprTests.fs | 980 +++++++++++++++++++++++++++++++------ 1 file changed, 831 insertions(+), 149 deletions(-) diff --git a/tests/service/ExprTests.fs b/tests/service/ExprTests.fs index 718b9cbb901..91f1da5e824 100644 --- a/tests/service/ExprTests.fs +++ b/tests/service/ExprTests.fs @@ -546,6 +546,17 @@ type IntAbbrev = int let bool2 = false +let testHashChar (x:char) = hash x +let testHashSByte (x:sbyte) = hash x +let testHashInt16 (x:int16) = hash x +let testHashInt64 (x:int64) = hash x +let testHashUInt64 (x:uint64) = hash x +let testHashIntPtr (x:nativeint) = hash x +let testHashUIntPtr (x:unativeint) = hash x + +let testHashString (x:string) = hash x +let testTypeOf (x:'T) = typeof<'T> + let testEqualsOperator e1 e2 = (=) e1 e2 let testNotEqualsOperator e1 e2 = (<>) e1 e2 let testLessThanOperator e1 e2 = (<) e1 e2 @@ -572,43 +583,269 @@ let testSubtractionChecked e1 e2 = Checked.(-) e1 e2 let testMultiplyChecked e1 e2 = Checked.(*) e1 e2 let testUnaryNegChecked e1 = Checked.(~-) e1 -let testToByteChecked e1 = Checked.byte e1 -let testToSByteChecked e1 = Checked.sbyte e1 -let testToInt16Checked e1 = Checked.int16 e1 -let testToUInt16Checked e1 = Checked.uint16 e1 -let testToIntChecked e1 = Checked.int e1 -let testToInt32Checked e1 = Checked.int32 e1 -let testToUInt32Checked e1 = Checked.uint32 e1 -let testToInt64Checked e1 = Checked.int64 e1 -let testToUInt64Checked e1 = Checked.uint64 e1 -let testToIntPtrChecked e1 = Checked.nativeint e1 -let testToUIntPtrChecked e1 = Checked.unativeint e1 - -let testToByteOperator e1 = byte e1 -let testToSByteOperator e1 = sbyte e1 -let testToInt16Operator e1 = int16 e1 -let testToUInt16Operator e1 = uint16 e1 -let testToIntOperator e1 = int e1 -let testToInt32Operator e1 = int32 e1 -let testToUInt32Operator e1 = uint32 e1 -let testToInt64Operator e1 = int64 e1 -let testToUInt64Operator e1 = uint64 e1 -let testToSingleOperator e1 = float32 e1 -let testToDoubleOperator e1 = float e1 -let testToIntPtrOperator e1 = nativeint e1 -let testToUIntPtrOperator e1 = unativeint e1 - -let testHashChar (x:char) = hash x -let testHashSByte (x:sbyte) = hash x -let testHashInt16 (x:int16) = hash x -let testHashInt64 (x:int64) = hash x -let testHashUInt64 (x:uint64) = hash x -let testHashIntPtr (x:nativeint) = hash x -let testHashUIntPtr (x:unativeint) = hash x - -let testHashString (x:string) = hash x -let testDualConv (x:byte) = float32(x) -let testTypeOf (x:'T) = typeof<'T> +let testToByteChecked e1 = Checked.byte e1 +let testToSByteChecked e1 = Checked.sbyte e1 +let testToInt16Checked e1 = Checked.int16 e1 +let testToUInt16Checked e1 = Checked.uint16 e1 +let testToIntChecked e1 = Checked.int e1 +let testToInt32Checked e1 = Checked.int32 e1 +let testToUInt32Checked e1 = Checked.uint32 e1 +let testToInt64Checked e1 = Checked.int64 e1 +let testToUInt64Checked e1 = Checked.uint64 e1 +let testToIntPtrChecked e1 = Checked.nativeint e1 +let testToUIntPtrChecked e1 = Checked.unativeint e1 + +let testToByteOperator e1 = byte e1 +let testToSByteOperator e1 = sbyte e1 +let testToInt16Operator e1 = int16 e1 +let testToUInt16Operator e1 = uint16 e1 +let testToIntOperator e1 = int e1 +let testToInt32Operator e1 = int32 e1 +let testToUInt32Operator e1 = uint32 e1 +let testToInt64Operator e1 = int64 e1 +let testToUInt64Operator e1 = uint64 e1 +let testToIntPtrOperator e1 = nativeint e1 +let testToUIntPtrOperator e1 = unativeint e1 +let testToSingleOperator e1 = float32 e1 +let testToDoubleOperator e1 = float e1 +let testToDecimalOperator e1 = decimal e1 +let testToCharOperator e1 = char e1 +let testToStringOperator e1 = string e1 + +let testByteToByte (x:byte) = byte x +let testByteToSByte (x:byte) = sbyte x +let testByteToInt16 (x:byte) = int16 x +let testByteToUInt16 (x:byte) = uint16 x +let testByteToInt32 (x:byte) = int x +let testByteToUInt32 (x:byte) = uint32 x +let testByteToInt64 (x:byte) = int64 x +let testByteToUInt64 (x:byte) = uint64 x +let testByteToIntPtr (x:byte) = nativeint x +let testByteToUIntPtr (x:byte) = unativeint x +let testByteToSingle (x:byte) = float32 x +let testByteToDouble (x:byte) = float x +let testByteToDecimal (x:byte) = decimal x +let testByteToChar (x:byte) = char x +let testByteToString (x:byte) = string x + +let testSByteToByte (x:sbyte) = byte x +let testSByteToSByte (x:sbyte) = sbyte x +let testSByteToInt16 (x:sbyte) = int16 x +let testSByteToUInt16 (x:sbyte) = uint16 x +let testSByteToInt32 (x:sbyte) = int x +let testSByteToUInt32 (x:sbyte) = uint32 x +let testSByteToInt64 (x:sbyte) = int64 x +let testSByteToUInt64 (x:sbyte) = uint64 x +let testSByteToIntPtr (x:sbyte) = nativeint x +let testSByteToUIntPtr (x:sbyte) = unativeint x +let testSByteToSingle (x:sbyte) = float32 x +let testSByteToDouble (x:sbyte) = float x +let testSByteToDecimal (x:sbyte) = decimal x +let testSByteToChar (x:sbyte) = char x +let testSByteToString (x:sbyte) = string x + +let testInt16ToByte (x:int16) = byte x +let testInt16ToSByte (x:int16) = sbyte x +let testInt16ToInt16 (x:int16) = int16 x +let testInt16ToUInt16 (x:int16) = uint16 x +let testInt16ToInt32 (x:int16) = int x +let testInt16ToUInt32 (x:int16) = uint32 x +let testInt16ToInt64 (x:int16) = int64 x +let testInt16ToUInt64 (x:int16) = uint64 x +let testInt16ToIntPtr (x:int16) = nativeint x +let testInt16ToUIntPtr (x:int16) = unativeint x +let testInt16ToSingle (x:int16) = float32 x +let testInt16ToDouble (x:int16) = float x +let testInt16ToDecimal (x:int16) = decimal x +let testInt16ToChar (x:int16) = char x +let testInt16ToString (x:int16) = string x + +let testUInt16ToByte (x:uint16) = byte x +let testUInt16ToSByte (x:uint16) = sbyte x +let testUInt16ToInt16 (x:uint16) = int16 x +let testUInt16ToUInt16 (x:uint16) = uint16 x +let testUInt16ToInt32 (x:uint16) = int x +let testUInt16ToUInt32 (x:uint16) = uint32 x +let testUInt16ToInt64 (x:uint16) = int64 x +let testUInt16ToUInt64 (x:uint16) = uint64 x +let testUInt16ToIntPtr (x:uint16) = nativeint x +let testUInt16ToUIntPtr (x:uint16) = unativeint x +let testUInt16ToSingle (x:uint16) = float32 x +let testUInt16ToDouble (x:uint16) = float x +let testUInt16ToDecimal (x:uint16) = decimal x +let testUInt16ToChar (x:uint16) = char x +let testUInt16ToString (x:uint16) = string x + +let testInt32ToByte (x:int) = byte x +let testInt32ToSByte (x:int) = sbyte x +let testInt32ToInt16 (x:int) = int16 x +let testInt32ToUInt16 (x:int) = uint16 x +let testInt32ToInt32 (x:int) = int x +let testInt32ToUInt32 (x:int) = uint32 x +let testInt32ToInt64 (x:int) = int64 x +let testInt32ToUInt64 (x:int) = uint64 x +let testInt32ToIntPtr (x:int) = nativeint x +let testInt32ToUIntPtr (x:int) = unativeint x +let testInt32ToSingle (x:int) = float32 x +let testInt32ToDouble (x:int) = float x +let testInt32ToDecimal (x:int) = decimal x +let testInt32ToChar (x:int) = char x +let testInt32ToString (x:int) = string x + +let testUInt32ToByte (x:uint32) = byte x +let testUInt32ToSByte (x:uint32) = sbyte x +let testUInt32ToInt16 (x:uint32) = int16 x +let testUInt32ToUInt16 (x:uint32) = uint16 x +let testUInt32ToInt32 (x:uint32) = int x +let testUInt32ToUInt32 (x:uint32) = uint32 x +let testUInt32ToInt64 (x:uint32) = int64 x +let testUInt32ToUInt64 (x:uint32) = uint64 x +let testUInt32ToIntPtr (x:uint32) = nativeint x +let testUInt32ToUIntPtr (x:uint32) = unativeint x +let testUInt32ToSingle (x:uint32) = float32 x +let testUInt32ToDouble (x:uint32) = float x +let testUInt32ToDecimal (x:uint32) = decimal x +let testUInt32ToChar (x:uint32) = char x +let testUInt32ToString (x:uint32) = string x + +let testInt64ToByte (x:int64) = byte x +let testInt64ToSByte (x:int64) = sbyte x +let testInt64ToInt16 (x:int64) = int16 x +let testInt64ToUInt16 (x:int64) = uint16 x +let testInt64ToInt32 (x:int64) = int x +let testInt64ToUInt32 (x:int64) = uint32 x +let testInt64ToInt64 (x:int64) = int64 x +let testInt64ToUInt64 (x:int64) = uint64 x +let testInt64ToIntPtr (x:int64) = nativeint x +let testInt64ToUIntPtr (x:int64) = unativeint x +let testInt64ToSingle (x:int64) = float32 x +let testInt64ToDouble (x:int64) = float x +let testInt64ToDecimal (x:int64) = decimal x +let testInt64ToChar (x:int64) = char x +let testInt64ToString (x:int64) = string x + +let testUInt64ToByte (x:uint64) = byte x +let testUInt64ToSByte (x:uint64) = sbyte x +let testUInt64ToInt16 (x:uint64) = int16 x +let testUInt64ToUInt16 (x:uint64) = uint16 x +let testUInt64ToInt32 (x:uint64) = int x +let testUInt64ToUInt32 (x:uint64) = uint32 x +let testUInt64ToInt64 (x:uint64) = int64 x +let testUInt64ToUInt64 (x:uint64) = uint64 x +let testUInt64ToIntPtr (x:uint64) = nativeint x +let testUInt64ToUIntPtr (x:uint64) = unativeint x +let testUInt64ToSingle (x:uint64) = float32 x +let testUInt64ToDouble (x:uint64) = float x +let testUInt64ToDecimal (x:uint64) = decimal x +let testUInt64ToChar (x:uint64) = char x +let testUInt64ToString (x:uint64) = string x + +let testIntPtrToByte (x:nativeint) = byte x +let testIntPtrToSByte (x:nativeint) = sbyte x +let testIntPtrToInt16 (x:nativeint) = int16 x +let testIntPtrToUInt16 (x:nativeint) = uint16 x +let testIntPtrToInt32 (x:nativeint) = int x +let testIntPtrToUInt32 (x:nativeint) = uint32 x +let testIntPtrToInt64 (x:nativeint) = int64 x +let testIntPtrToUInt64 (x:nativeint) = uint64 x +let testIntPtrToIntPtr (x:nativeint) = nativeint x +let testIntPtrToUIntPtr (x:nativeint) = unativeint x +let testIntPtrToSingle (x:nativeint) = float32 x +let testIntPtrToDouble (x:nativeint) = float x +let testIntPtrToDecimal (x:nativeint) = decimal x +let testIntPtrToChar (x:nativeint) = char x +let testIntPtrToString (x:nativeint) = string x + +let testUIntPtrToByte (x:unativeint) = byte x +let testUIntPtrToSByte (x:unativeint) = sbyte x +let testUIntPtrToInt16 (x:unativeint) = int16 x +let testUIntPtrToUInt16 (x:unativeint) = uint16 x +let testUIntPtrToInt32 (x:unativeint) = int x +let testUIntPtrToUInt32 (x:unativeint) = uint32 x +let testUIntPtrToInt64 (x:unativeint) = int64 x +let testUIntPtrToUInt64 (x:unativeint) = uint64 x +let testUIntPtrToIntPtr (x:unativeint) = nativeint x +let testUIntPtrToUIntPtr (x:unativeint) = unativeint x +let testUIntPtrToSingle (x:unativeint) = float32 x +let testUIntPtrToDouble (x:unativeint) = float x +let testUIntPtrToDecimal (x:unativeint) = decimal x +let testUIntPtrToChar (x:unativeint) = char x +let testUIntPtrToString (x:unativeint) = string x + +let testSingleToByte (x:float32) = byte x +let testSingleToSByte (x:float32) = sbyte x +let testSingleToInt16 (x:float32) = int16 x +let testSingleToUInt16 (x:float32) = uint16 x +let testSingleToInt32 (x:float32) = int x +let testSingleToUInt32 (x:float32) = uint32 x +let testSingleToInt64 (x:float32) = int64 x +let testSingleToUInt64 (x:float32) = uint64 x +let testSingleToIntPtr (x:float32) = nativeint x +let testSingleToUIntPtr (x:float32) = unativeint x +let testSingleToSingle (x:float32) = float32 x +let testSingleToDouble (x:float32) = float x +let testSingleToDecimal (x:float32) = decimal x +let testSingleToChar (x:float32) = char x +let testSingleToString (x:float32) = string x + +let testDoubleToByte (x:float) = byte x +let testDoubleToSByte (x:float) = sbyte x +let testDoubleToInt16 (x:float) = int16 x +let testDoubleToUInt16 (x:float) = uint16 x +let testDoubleToInt32 (x:float) = int x +let testDoubleToUInt32 (x:float) = uint32 x +let testDoubleToInt64 (x:float) = int64 x +let testDoubleToUInt64 (x:float) = uint64 x +let testDoubleToIntPtr (x:float) = nativeint x +let testDoubleToUIntPtr (x:float) = unativeint x +let testDoubleToSingle (x:float) = float32 x +let testDoubleToDouble (x:float) = float x +let testDoubleToDecimal (x:float) = decimal x +let testDoubleToChar (x:float) = char x +let testDoubleToString (x:float) = string x + +let testDecimalToByte (x:decimal) = byte x +let testDecimalToSByte (x:decimal) = sbyte x +let testDecimalToInt16 (x:decimal) = int16 x +let testDecimalToUInt16 (x:decimal) = uint16 x +let testDecimalToInt32 (x:decimal) = int x +let testDecimalToUInt32 (x:decimal) = uint32 x +let testDecimalToInt64 (x:decimal) = int64 x +let testDecimalToUInt64 (x:decimal) = uint64 x +let testDecimalToSingle (x:decimal) = float32 x +let testDecimalToDouble (x:decimal) = float x +let testDecimalToDecimal (x:decimal) = decimal x +let testDecimalToChar (x:decimal) = char x +let testDecimalToString (x:decimal) = string x + +let testCharToByte (x:char) = byte x +let testCharToSByte (x:char) = sbyte x +let testCharToInt16 (x:char) = int16 x +let testCharToUInt16 (x:char) = uint16 x +let testCharToInt32 (x:char) = int x +let testCharToUInt32 (x:char) = uint32 x +let testCharToInt64 (x:char) = int64 x +let testCharToUInt64 (x:char) = uint64 x +let testCharToIntPtr (x:char) = nativeint x +let testCharToUIntPtr (x:char) = unativeint x +let testCharToSingle (x:char) = float32 x +let testCharToDouble (x:char) = float x +let testCharToChar (x:char) = char x +let testCharToString (x:char) = string x + +let testStringToByte (x:string) = byte x +let testStringToSByte (x:string) = sbyte x +let testStringToInt16 (x:string) = int16 x +let testStringToUInt16 (x:string) = uint16 x +let testStringToInt32 (x:string) = int x +let testStringToUInt32 (x:string) = uint32 x +let testStringToInt64 (x:string) = int64 x +let testStringToUInt64 (x:string) = uint64 x +let testStringToSingle (x:string) = float32 x +let testStringToDouble (x:string) = float x +let testStringToDecimal (x:string) = decimal x +let testStringToChar (x:string) = char x +let testStringToString (x:string) = string x """ File.WriteAllText(fileName2, fileSource2) @@ -732,62 +969,284 @@ let ``Test Declarations project1`` () = let expected2 = [ "type N"; "type IntAbbrev"; "let bool2 = False @ (6,12--6,17)"; - "let testEqualsOperator(e1) (e2) = Operators.op_Equality<'a> (e1,e2) @ (8,46--8,54)"; - "let testNotEqualsOperator(e1) (e2) = Operators.op_Inequality<'a> (e1,e2) @ (9,46--9,55)"; - "let testLessThanOperator(e1) (e2) = Operators.op_LessThan<'a> (e1,e2) @ (10,46--10,54)"; - "let testLessThanOrEqualsOperator(e1) (e2) = Operators.op_LessThanOrEqual<'a> (e1,e2) @ (11,46--11,55)"; - "let testGreaterThanOperator(e1) (e2) = Operators.op_GreaterThan<'a> (e1,e2) @ (12,46--12,54)"; - "let testGreaterThanOrEqualsOperator(e1) (e2) = Operators.op_GreaterThanOrEqual<'a> (e1,e2) @ (13,46--13,55)"; - "let testAdditionOperator(e1) (e2) = Operators.op_Addition (e1,e2) @ (15,38--15,46)"; - "let testSubtractionOperator(e1) (e2) = Operators.op_Subtraction (e1,e2) @ (16,38--16,46)"; - "let testMultiplyOperator(e1) (e2) = Operators.op_Multiply (e1,e2) @ (17,37--17,46)"; - "let testDivisionOperator(e1) (e2) = Operators.op_Division (e1,e2) @ (18,38--18,46)"; - "let testModulusOperator(e1) (e2) = Operators.op_Modulus (e1,e2) @ (19,38--19,46)"; - "let testBitwiseAndOperator(e1) (e2) = Operators.op_BitwiseAnd (e1,e2) @ (20,38--20,48)"; - "let testBitwiseOrOperator(e1) (e2) = Operators.op_BitwiseOr (e1,e2) @ (21,38--21,48)"; - "let testBitwiseXorOperator(e1) (e2) = Operators.op_ExclusiveOr (e1,e2) @ (22,38--22,48)"; - "let testShiftLeftOperator(e1) (e2) = Operators.op_LeftShift (e1,e2) @ (23,38--23,48)"; - "let testShiftRightOperator(e1) (e2) = Operators.op_RightShift (e1,e2) @ (24,38--24,48)"; - "let testUnaryNegOperator(e1) = Operators.op_UnaryNegation (e1) @ (26,33--26,39)"; - "let testUnaryNotOperator(e1) = Operators.Not (e1) @ (27,32--27,38)"; - "let testAdditionChecked(e1) (e2) = Checked.op_Addition (e1,e2) @ (29,35--29,52)"; - "let testSubtractionChecked(e1) (e2) = Checked.op_Subtraction (e1,e2) @ (30,35--30,52)"; - "let testMultiplyChecked(e1) (e2) = Checked.op_Multiply (e1,e2) @ (31,35--31,52)"; - "let testUnaryNegChecked(e1) = Checked.op_UnaryNegation (e1) @ (32,32--32,47)"; - "let testToByteChecked(e1) = Checked.ToByte (e1) @ (34,31--34,46)"; - "let testToSByteChecked(e1) = Checked.ToSByte (e1) @ (35,31--35,47)"; - "let testToInt16Checked(e1) = Checked.ToInt16 (e1) @ (36,31--36,47)"; - "let testToUInt16Checked(e1) = Checked.ToUInt16 (e1) @ (37,31--37,48)"; - "let testToIntChecked(e1) = Checked.ToInt (e1) @ (38,31--38,45)"; - "let testToInt32Checked(e1) = Checked.ToInt32 (e1) @ (39,31--39,47)"; - "let testToUInt32Checked(e1) = Checked.ToUInt32 (e1) @ (40,31--40,48)"; - "let testToInt64Checked(e1) = Checked.ToInt64 (e1) @ (41,31--41,47)"; - "let testToUInt64Checked(e1) = Checked.ToUInt64 (e1) @ (42,31--42,48)"; - "let testToIntPtrChecked(e1) = Checked.ToIntPtr (e1) @ (43,31--43,51)"; - "let testToUIntPtrChecked(e1) = Checked.ToUIntPtr (e1) @ (44,31--44,52)"; - "let testToByteOperator(e1) = Operators.ToByte (e1) @ (46,31--46,38)"; - "let testToSByteOperator(e1) = Operators.ToSByte (e1) @ (47,31--47,39)"; - "let testToInt16Operator(e1) = Operators.ToInt16 (e1) @ (48,31--48,39)"; - "let testToUInt16Operator(e1) = Operators.ToUInt16 (e1) @ (49,31--49,40)"; - "let testToIntOperator(e1) = Operators.ToInt (e1) @ (50,31--50,37)"; - "let testToInt32Operator(e1) = Operators.ToInt32 (e1) @ (51,31--51,39)"; - "let testToUInt32Operator(e1) = Operators.ToUInt32 (e1) @ (52,31--52,40)"; - "let testToInt64Operator(e1) = Operators.ToInt64 (e1) @ (53,31--53,39)"; - "let testToUInt64Operator(e1) = Operators.ToUInt64 (e1) @ (54,31--54,40)"; - "let testToSingleOperator(e1) = Operators.ToSingle (e1) @ (55,31--55,41)"; - "let testToDoubleOperator(e1) = Operators.ToDouble (e1) @ (56,31--56,39)"; - "let testToIntPtrOperator(e1) = Operators.ToIntPtr (e1) @ (57,31--57,43)"; - "let testToUIntPtrOperator(e1) = Operators.ToUIntPtr (e1) @ (58,31--58,44)"; - "let testHashChar(x) = Operators.Hash (x) @ (60,28--60,34)"; - "let testHashSByte(x) = Operators.Hash (x) @ (61,30--61,36)"; - "let testHashInt16(x) = Operators.Hash (x) @ (62,30--62,36)"; - "let testHashInt64(x) = Operators.Hash (x) @ (63,30--63,36)"; - "let testHashUInt64(x) = Operators.Hash (x) @ (64,32--64,38)"; - "let testHashIntPtr(x) = Operators.Hash (x) @ (65,35--65,41)"; - "let testHashUIntPtr(x) = Operators.Hash (x) @ (66,37--66,43)"; - "let testHashString(x) = Operators.Hash (x) @ (68,32--68,38)"; - "let testDualConv(x) = Operators.ToSingle (x) @ (69,28--69,38)"; - "let testTypeOf(x) = Operators.TypeOf<'T> () @ (70,24--70,30)" ] + "let testHashChar(x) = Operators.Hash (x) @ (8,28--8,34)"; + "let testHashSByte(x) = Operators.Hash (x) @ (9,30--9,36)"; + "let testHashInt16(x) = Operators.Hash (x) @ (10,30--10,36)"; + "let testHashInt64(x) = Operators.Hash (x) @ (11,30--11,36)"; + "let testHashUInt64(x) = Operators.Hash (x) @ (12,32--12,38)"; + "let testHashIntPtr(x) = Operators.Hash (x) @ (13,35--13,41)"; + "let testHashUIntPtr(x) = Operators.Hash (x) @ (14,37--14,43)"; + "let testHashString(x) = Operators.Hash (x) @ (16,32--16,38)"; + "let testTypeOf(x) = Operators.TypeOf<'T> () @ (17,24--17,30)"; + "let testEqualsOperator(e1) (e2) = Operators.op_Equality<'a> (e1,e2) @ (19,46--19,54)"; + "let testNotEqualsOperator(e1) (e2) = Operators.op_Inequality<'a> (e1,e2) @ (20,46--20,55)"; + "let testLessThanOperator(e1) (e2) = Operators.op_LessThan<'a> (e1,e2) @ (21,46--21,54)"; + "let testLessThanOrEqualsOperator(e1) (e2) = Operators.op_LessThanOrEqual<'a> (e1,e2) @ (22,46--22,55)"; + "let testGreaterThanOperator(e1) (e2) = Operators.op_GreaterThan<'a> (e1,e2) @ (23,46--23,54)"; + "let testGreaterThanOrEqualsOperator(e1) (e2) = Operators.op_GreaterThanOrEqual<'a> (e1,e2) @ (24,46--24,55)"; + "let testAdditionOperator(e1) (e2) = Operators.op_Addition (e1,e2) @ (26,38--26,46)"; + "let testSubtractionOperator(e1) (e2) = Operators.op_Subtraction (e1,e2) @ (27,38--27,46)"; + "let testMultiplyOperator(e1) (e2) = Operators.op_Multiply (e1,e2) @ (28,37--28,46)"; + "let testDivisionOperator(e1) (e2) = Operators.op_Division (e1,e2) @ (29,38--29,46)"; + "let testModulusOperator(e1) (e2) = Operators.op_Modulus (e1,e2) @ (30,38--30,46)"; + "let testBitwiseAndOperator(e1) (e2) = Operators.op_BitwiseAnd (e1,e2) @ (31,38--31,48)"; + "let testBitwiseOrOperator(e1) (e2) = Operators.op_BitwiseOr (e1,e2) @ (32,38--32,48)"; + "let testBitwiseXorOperator(e1) (e2) = Operators.op_ExclusiveOr (e1,e2) @ (33,38--33,48)"; + "let testShiftLeftOperator(e1) (e2) = Operators.op_LeftShift (e1,e2) @ (34,38--34,48)"; + "let testShiftRightOperator(e1) (e2) = Operators.op_RightShift (e1,e2) @ (35,38--35,48)"; + "let testUnaryNegOperator(e1) = Operators.op_UnaryNegation (e1) @ (37,33--37,39)"; + "let testUnaryNotOperator(e1) = Operators.Not (e1) @ (38,32--38,38)"; + "let testAdditionChecked(e1) (e2) = Checked.op_Addition (e1,e2) @ (40,35--40,52)"; + "let testSubtractionChecked(e1) (e2) = Checked.op_Subtraction (e1,e2) @ (41,35--41,52)"; + "let testMultiplyChecked(e1) (e2) = Checked.op_Multiply (e1,e2) @ (42,35--42,52)"; + "let testUnaryNegChecked(e1) = Checked.op_UnaryNegation (e1) @ (43,32--43,47)"; + "let testToByteChecked(e1) = Checked.ToByte (e1) @ (45,32--45,47)"; + "let testToSByteChecked(e1) = Checked.ToSByte (e1) @ (46,32--46,48)"; + "let testToInt16Checked(e1) = Checked.ToInt16 (e1) @ (47,32--47,48)"; + "let testToUInt16Checked(e1) = Checked.ToUInt16 (e1) @ (48,32--48,49)"; + "let testToIntChecked(e1) = Checked.ToInt (e1) @ (49,32--49,46)"; + "let testToInt32Checked(e1) = Checked.ToInt32 (e1) @ (50,32--50,48)"; + "let testToUInt32Checked(e1) = Checked.ToUInt32 (e1) @ (51,32--51,49)"; + "let testToInt64Checked(e1) = Checked.ToInt64 (e1) @ (52,32--52,48)"; + "let testToUInt64Checked(e1) = Checked.ToUInt64 (e1) @ (53,32--53,49)"; + "let testToIntPtrChecked(e1) = Checked.ToIntPtr (e1) @ (54,32--54,52)"; + "let testToUIntPtrChecked(e1) = Checked.ToUIntPtr (e1) @ (55,32--55,53)"; + "let testToByteOperator(e1) = Operators.ToByte (e1) @ (57,32--57,39)"; + "let testToSByteOperator(e1) = Operators.ToSByte (e1) @ (58,32--58,40)"; + "let testToInt16Operator(e1) = Operators.ToInt16 (e1) @ (59,32--59,40)"; + "let testToUInt16Operator(e1) = Operators.ToUInt16 (e1) @ (60,32--60,41)"; + "let testToIntOperator(e1) = Operators.ToInt (e1) @ (61,32--61,38)"; + "let testToInt32Operator(e1) = Operators.ToInt32 (e1) @ (62,32--62,40)"; + "let testToUInt32Operator(e1) = Operators.ToUInt32 (e1) @ (63,32--63,41)"; + "let testToInt64Operator(e1) = Operators.ToInt64 (e1) @ (64,32--64,40)"; + "let testToUInt64Operator(e1) = Operators.ToUInt64 (e1) @ (65,32--65,41)"; + "let testToIntPtrOperator(e1) = Operators.ToIntPtr (e1) @ (66,32--66,44)"; + "let testToUIntPtrOperator(e1) = Operators.ToUIntPtr (e1) @ (67,32--67,45)"; + "let testToSingleOperator(e1) = Operators.ToSingle (e1) @ (68,32--68,42)"; + "let testToDoubleOperator(e1) = Operators.ToDouble (e1) @ (69,32--69,40)"; + "let testToDecimalOperator(e1) = Operators.ToDecimal (e1) @ (70,32--70,42)"; + "let testToCharOperator(e1) = Operators.ToChar (e1) @ (71,32--71,39)"; + "let testToStringOperator(e1) = Operators.ToString (e1) @ (72,32--72,41)"; + "let testByteToByte(x) = Operators.ToByte (x) @ (74,33--74,39)"; + "let testByteToSByte(x) = Operators.ToSByte (x) @ (75,33--75,40)"; + "let testByteToInt16(x) = Operators.ToInt16 (x) @ (76,33--76,40)"; + "let testByteToUInt16(x) = Operators.ToUInt16 (x) @ (77,33--77,41)"; + "let testByteToInt32(x) = Operators.ToInt (x) @ (78,33--78,38)"; + "let testByteToUInt32(x) = Operators.ToUInt32 (x) @ (79,33--79,41)"; + "let testByteToInt64(x) = Operators.ToInt64 (x) @ (80,33--80,40)"; + "let testByteToUInt64(x) = Operators.ToUInt64 (x) @ (81,33--81,41)"; + "let testByteToIntPtr(x) = Operators.ToIntPtr (x) @ (82,33--82,44)"; + "let testByteToUIntPtr(x) = Operators.ToUIntPtr (x) @ (83,33--83,45)"; + "let testByteToSingle(x) = Operators.ToSingle (x) @ (84,33--84,42)"; + "let testByteToDouble(x) = Operators.ToDouble (x) @ (85,33--85,40)"; + "let testByteToDecimal(x) = Operators.ToDecimal (x) @ (86,33--86,42)"; + "let testByteToChar(x) = Operators.ToChar (x) @ (87,33--87,39)"; + "let testByteToString(x) = Operators.ToString (x) @ (88,33--88,41)"; + "let testSByteToByte(x) = Operators.ToByte (x) @ (90,35--90,41)"; + "let testSByteToSByte(x) = Operators.ToSByte (x) @ (91,35--91,42)"; + "let testSByteToInt16(x) = Operators.ToInt16 (x) @ (92,35--92,42)"; + "let testSByteToUInt16(x) = Operators.ToUInt16 (x) @ (93,35--93,43)"; + "let testSByteToInt32(x) = Operators.ToInt (x) @ (94,35--94,40)"; + "let testSByteToUInt32(x) = Operators.ToUInt32 (x) @ (95,35--95,43)"; + "let testSByteToInt64(x) = Operators.ToInt64 (x) @ (96,35--96,42)"; + "let testSByteToUInt64(x) = Operators.ToUInt64 (x) @ (97,35--97,43)"; + "let testSByteToIntPtr(x) = Operators.ToIntPtr (x) @ (98,35--98,46)"; + "let testSByteToUIntPtr(x) = Operators.ToUIntPtr (x) @ (99,35--99,47)"; + "let testSByteToSingle(x) = Operators.ToSingle (x) @ (100,35--100,44)"; + "let testSByteToDouble(x) = Operators.ToDouble (x) @ (101,35--101,42)"; + "let testSByteToDecimal(x) = Operators.ToDecimal (x) @ (102,35--102,44)"; + "let testSByteToChar(x) = Operators.ToChar (x) @ (103,35--103,41)"; + "let testSByteToString(x) = Operators.ToString (x) @ (104,35--104,43)"; + "let testInt16ToByte(x) = Operators.ToByte (x) @ (106,35--106,41)"; + "let testInt16ToSByte(x) = Operators.ToSByte (x) @ (107,35--107,42)"; + "let testInt16ToInt16(x) = Operators.ToInt16 (x) @ (108,35--108,42)"; + "let testInt16ToUInt16(x) = Operators.ToUInt16 (x) @ (109,35--109,43)"; + "let testInt16ToInt32(x) = Operators.ToInt (x) @ (110,35--110,40)"; + "let testInt16ToUInt32(x) = Operators.ToUInt32 (x) @ (111,35--111,43)"; + "let testInt16ToInt64(x) = Operators.ToInt64 (x) @ (112,35--112,42)"; + "let testInt16ToUInt64(x) = Operators.ToUInt64 (x) @ (113,35--113,43)"; + "let testInt16ToIntPtr(x) = Operators.ToIntPtr (x) @ (114,35--114,46)"; + "let testInt16ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (115,35--115,47)"; + "let testInt16ToSingle(x) = Operators.ToSingle (x) @ (116,35--116,44)"; + "let testInt16ToDouble(x) = Operators.ToDouble (x) @ (117,35--117,42)"; + "let testInt16ToDecimal(x) = Operators.ToDecimal (x) @ (118,35--118,44)"; + "let testInt16ToChar(x) = Operators.ToChar (x) @ (119,35--119,41)"; + "let testInt16ToString(x) = Operators.ToString (x) @ (120,35--120,43)"; + "let testUInt16ToByte(x) = Operators.ToByte (x) @ (122,37--122,43)"; + "let testUInt16ToSByte(x) = Operators.ToSByte (x) @ (123,37--123,44)"; + "let testUInt16ToInt16(x) = Operators.ToInt16 (x) @ (124,37--124,44)"; + "let testUInt16ToUInt16(x) = Operators.ToUInt16 (x) @ (125,37--125,45)"; + "let testUInt16ToInt32(x) = Operators.ToInt (x) @ (126,37--126,42)"; + "let testUInt16ToUInt32(x) = Operators.ToUInt32 (x) @ (127,37--127,45)"; + "let testUInt16ToInt64(x) = Operators.ToInt64 (x) @ (128,37--128,44)"; + "let testUInt16ToUInt64(x) = Operators.ToUInt64 (x) @ (129,37--129,45)"; + "let testUInt16ToIntPtr(x) = Operators.ToIntPtr (x) @ (130,37--130,48)"; + "let testUInt16ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (131,37--131,49)"; + "let testUInt16ToSingle(x) = Operators.ToSingle (x) @ (132,37--132,46)"; + "let testUInt16ToDouble(x) = Operators.ToDouble (x) @ (133,37--133,44)"; + "let testUInt16ToDecimal(x) = Operators.ToDecimal (x) @ (134,37--134,46)"; + "let testUInt16ToChar(x) = Operators.ToChar (x) @ (135,37--135,43)"; + "let testUInt16ToString(x) = Operators.ToString (x) @ (136,37--136,45)"; + "let testInt32ToByte(x) = Operators.ToByte (x) @ (138,33--138,39)"; + "let testInt32ToSByte(x) = Operators.ToSByte (x) @ (139,33--139,40)"; + "let testInt32ToInt16(x) = Operators.ToInt16 (x) @ (140,33--140,40)"; + "let testInt32ToUInt16(x) = Operators.ToUInt16 (x) @ (141,33--141,41)"; + "let testInt32ToInt32(x) = Operators.ToInt (x) @ (142,33--142,38)"; + "let testInt32ToUInt32(x) = Operators.ToUInt32 (x) @ (143,33--143,41)"; + "let testInt32ToInt64(x) = Operators.ToInt64 (x) @ (144,33--144,40)"; + "let testInt32ToUInt64(x) = Operators.ToUInt64 (x) @ (145,33--145,41)"; + "let testInt32ToIntPtr(x) = Operators.ToIntPtr (x) @ (146,33--146,44)"; + "let testInt32ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (147,33--147,45)"; + "let testInt32ToSingle(x) = Operators.ToSingle (x) @ (148,33--148,42)"; + "let testInt32ToDouble(x) = Operators.ToDouble (x) @ (149,33--149,40)"; + "let testInt32ToDecimal(x) = Operators.ToDecimal (x) @ (150,33--150,42)"; + "let testInt32ToChar(x) = Operators.ToChar (x) @ (151,33--151,39)"; + "let testInt32ToString(x) = Operators.ToString (x) @ (152,33--152,41)"; + "let testUInt32ToByte(x) = Operators.ToByte (x) @ (154,37--154,43)"; + "let testUInt32ToSByte(x) = Operators.ToSByte (x) @ (155,37--155,44)"; + "let testUInt32ToInt16(x) = Operators.ToInt16 (x) @ (156,37--156,44)"; + "let testUInt32ToUInt16(x) = Operators.ToUInt16 (x) @ (157,37--157,45)"; + "let testUInt32ToInt32(x) = Operators.ToInt (x) @ (158,37--158,42)"; + "let testUInt32ToUInt32(x) = Operators.ToUInt32 (x) @ (159,37--159,45)"; + "let testUInt32ToInt64(x) = Operators.ToInt64 (x) @ (160,37--160,44)"; + "let testUInt32ToUInt64(x) = Operators.ToUInt64 (x) @ (161,37--161,45)"; + "let testUInt32ToIntPtr(x) = Operators.ToIntPtr (x) @ (162,37--162,48)"; + "let testUInt32ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (163,37--163,49)"; + "let testUInt32ToSingle(x) = Operators.ToSingle (x) @ (164,37--164,46)"; + "let testUInt32ToDouble(x) = Operators.ToDouble (x) @ (165,37--165,44)"; + "let testUInt32ToDecimal(x) = Operators.ToDecimal (x) @ (166,37--166,46)"; + "let testUInt32ToChar(x) = Operators.ToChar (x) @ (167,37--167,43)"; + "let testUInt32ToString(x) = Operators.ToString (x) @ (168,37--168,45)"; + "let testInt64ToByte(x) = Operators.ToByte (x) @ (170,35--170,41)"; + "let testInt64ToSByte(x) = Operators.ToSByte (x) @ (171,35--171,42)"; + "let testInt64ToInt16(x) = Operators.ToInt16 (x) @ (172,35--172,42)"; + "let testInt64ToUInt16(x) = Operators.ToUInt16 (x) @ (173,35--173,43)"; + "let testInt64ToInt32(x) = Operators.ToInt (x) @ (174,35--174,40)"; + "let testInt64ToUInt32(x) = Operators.ToUInt32 (x) @ (175,35--175,43)"; + "let testInt64ToInt64(x) = Operators.ToInt64 (x) @ (176,35--176,42)"; + "let testInt64ToUInt64(x) = Operators.ToUInt64 (x) @ (177,35--177,43)"; + "let testInt64ToIntPtr(x) = Operators.ToIntPtr (x) @ (178,35--178,46)"; + "let testInt64ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (179,35--179,47)"; + "let testInt64ToSingle(x) = Operators.ToSingle (x) @ (180,35--180,44)"; + "let testInt64ToDouble(x) = Operators.ToDouble (x) @ (181,35--181,42)"; + "let testInt64ToDecimal(x) = Operators.ToDecimal (x) @ (182,35--182,44)"; + "let testInt64ToChar(x) = Operators.ToChar (x) @ (183,35--183,41)"; + "let testInt64ToString(x) = Operators.ToString (x) @ (184,35--184,43)"; + "let testUInt64ToByte(x) = Operators.ToByte (x) @ (186,37--186,43)"; + "let testUInt64ToSByte(x) = Operators.ToSByte (x) @ (187,37--187,44)"; + "let testUInt64ToInt16(x) = Operators.ToInt16 (x) @ (188,37--188,44)"; + "let testUInt64ToUInt16(x) = Operators.ToUInt16 (x) @ (189,37--189,45)"; + "let testUInt64ToInt32(x) = Operators.ToInt (x) @ (190,37--190,42)"; + "let testUInt64ToUInt32(x) = Operators.ToUInt32 (x) @ (191,37--191,45)"; + "let testUInt64ToInt64(x) = Operators.ToInt64 (x) @ (192,37--192,44)"; + "let testUInt64ToUInt64(x) = Operators.ToUInt64 (x) @ (193,37--193,45)"; + "let testUInt64ToIntPtr(x) = Operators.ToIntPtr (x) @ (194,37--194,48)"; + "let testUInt64ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (195,37--195,49)"; + "let testUInt64ToSingle(x) = Operators.ToSingle (x) @ (196,37--196,46)"; + "let testUInt64ToDouble(x) = Operators.ToDouble (x) @ (197,37--197,44)"; + "let testUInt64ToDecimal(x) = Operators.ToDecimal (x) @ (198,37--198,46)"; + "let testUInt64ToChar(x) = Operators.ToChar (x) @ (199,37--199,43)"; + "let testUInt64ToString(x) = Operators.ToString (x) @ (200,37--200,45)"; + "let testIntPtrToByte(x) = Operators.ToByte (x) @ (202,40--202,46)"; + "let testIntPtrToSByte(x) = Operators.ToSByte (x) @ (203,40--203,47)"; + "let testIntPtrToInt16(x) = Operators.ToInt16 (x) @ (204,40--204,47)"; + "let testIntPtrToUInt16(x) = Operators.ToUInt16 (x) @ (205,40--205,48)"; + "let testIntPtrToInt32(x) = Operators.ToInt (x) @ (206,40--206,45)"; + "let testIntPtrToUInt32(x) = Operators.ToUInt32 (x) @ (207,40--207,48)"; + "let testIntPtrToInt64(x) = Operators.ToInt64 (x) @ (208,40--208,47)"; + "let testIntPtrToUInt64(x) = Operators.ToUInt64 (x) @ (209,40--209,48)"; + "let testIntPtrToIntPtr(x) = Operators.ToIntPtr (x) @ (210,40--210,51)"; + "let testIntPtrToUIntPtr(x) = Operators.ToUIntPtr (x) @ (211,40--211,52)"; + "let testIntPtrToSingle(x) = Operators.ToSingle (x) @ (212,40--212,49)"; + "let testIntPtrToDouble(x) = Operators.ToDouble (x) @ (213,40--213,47)"; + "let testIntPtrToDecimal(x) = Operators.ToDecimal (x) @ (214,40--214,49)"; + "let testIntPtrToChar(x) = Operators.ToChar (x) @ (215,40--215,46)"; + "let testIntPtrToString(x) = Operators.ToString (x) @ (216,40--216,48)"; + "let testUIntPtrToByte(x) = Operators.ToByte (x) @ (218,42--218,48)"; + "let testUIntPtrToSByte(x) = Operators.ToSByte (x) @ (219,42--219,49)"; + "let testUIntPtrToInt16(x) = Operators.ToInt16 (x) @ (220,42--220,49)"; + "let testUIntPtrToUInt16(x) = Operators.ToUInt16 (x) @ (221,42--221,50)"; + "let testUIntPtrToInt32(x) = Operators.ToInt (x) @ (222,42--222,47)"; + "let testUIntPtrToUInt32(x) = Operators.ToUInt32 (x) @ (223,42--223,50)"; + "let testUIntPtrToInt64(x) = Operators.ToInt64 (x) @ (224,42--224,49)"; + "let testUIntPtrToUInt64(x) = Operators.ToUInt64 (x) @ (225,42--225,50)"; + "let testUIntPtrToIntPtr(x) = Operators.ToIntPtr (x) @ (226,42--226,53)"; + "let testUIntPtrToUIntPtr(x) = Operators.ToUIntPtr (x) @ (227,42--227,54)"; + "let testUIntPtrToSingle(x) = Operators.ToSingle (x) @ (228,42--228,51)"; + "let testUIntPtrToDouble(x) = Operators.ToDouble (x) @ (229,42--229,49)"; + "let testUIntPtrToDecimal(x) = Operators.ToDecimal (x) @ (230,42--230,51)"; + "let testUIntPtrToChar(x) = Operators.ToChar (x) @ (231,42--231,48)"; + "let testUIntPtrToString(x) = Operators.ToString (x) @ (232,42--232,50)"; + "let testSingleToByte(x) = Operators.ToByte (x) @ (234,38--234,44)"; + "let testSingleToSByte(x) = Operators.ToSByte (x) @ (235,38--235,45)"; + "let testSingleToInt16(x) = Operators.ToInt16 (x) @ (236,38--236,45)"; + "let testSingleToUInt16(x) = Operators.ToUInt16 (x) @ (237,38--237,46)"; + "let testSingleToInt32(x) = Operators.ToInt (x) @ (238,38--238,43)"; + "let testSingleToUInt32(x) = Operators.ToUInt32 (x) @ (239,38--239,46)"; + "let testSingleToInt64(x) = Operators.ToInt64 (x) @ (240,38--240,45)"; + "let testSingleToUInt64(x) = Operators.ToUInt64 (x) @ (241,38--241,46)"; + "let testSingleToIntPtr(x) = Operators.ToIntPtr (x) @ (242,38--242,49)"; + "let testSingleToUIntPtr(x) = Operators.ToUIntPtr (x) @ (243,38--243,50)"; + "let testSingleToSingle(x) = Operators.ToSingle (x) @ (244,38--244,47)"; + "let testSingleToDouble(x) = Operators.ToDouble (x) @ (245,38--245,45)"; + "let testSingleToDecimal(x) = Operators.ToDecimal (x) @ (246,38--246,47)"; + "let testSingleToChar(x) = Operators.ToChar (x) @ (247,38--247,44)"; + "let testSingleToString(x) = Operators.ToString (x) @ (248,38--248,46)"; + "let testDoubleToByte(x) = Operators.ToByte (x) @ (250,36--250,42)"; + "let testDoubleToSByte(x) = Operators.ToSByte (x) @ (251,36--251,43)"; + "let testDoubleToInt16(x) = Operators.ToInt16 (x) @ (252,36--252,43)"; + "let testDoubleToUInt16(x) = Operators.ToUInt16 (x) @ (253,36--253,44)"; + "let testDoubleToInt32(x) = Operators.ToInt (x) @ (254,36--254,41)"; + "let testDoubleToUInt32(x) = Operators.ToUInt32 (x) @ (255,36--255,44)"; + "let testDoubleToInt64(x) = Operators.ToInt64 (x) @ (256,36--256,43)"; + "let testDoubleToUInt64(x) = Operators.ToUInt64 (x) @ (257,36--257,44)"; + "let testDoubleToIntPtr(x) = Operators.ToIntPtr (x) @ (258,36--258,47)"; + "let testDoubleToUIntPtr(x) = Operators.ToUIntPtr (x) @ (259,36--259,48)"; + "let testDoubleToSingle(x) = Operators.ToSingle (x) @ (260,36--260,45)"; + "let testDoubleToDouble(x) = Operators.ToDouble (x) @ (261,36--261,43)"; + "let testDoubleToDecimal(x) = Operators.ToDecimal (x) @ (262,36--262,45)"; + "let testDoubleToChar(x) = Operators.ToChar (x) @ (263,36--263,42)"; + "let testDoubleToString(x) = Operators.ToString (x) @ (264,36--264,44)"; + "let testDecimalToByte(x) = Operators.ToByte (x) @ (266,39--266,45)"; + "let testDecimalToSByte(x) = Operators.ToSByte (x) @ (267,39--267,46)"; + "let testDecimalToInt16(x) = Operators.ToInt16 (x) @ (268,39--268,46)"; + "let testDecimalToUInt16(x) = Operators.ToUInt16 (x) @ (269,39--269,47)"; + "let testDecimalToInt32(x) = Operators.ToInt (x) @ (270,39--270,44)"; + "let testDecimalToUInt32(x) = Operators.ToUInt32 (x) @ (271,39--271,47)"; + "let testDecimalToInt64(x) = Operators.ToInt64 (x) @ (272,39--272,46)"; + "let testDecimalToUInt64(x) = Operators.ToUInt64 (x) @ (273,39--273,47)"; + "let testDecimalToSingle(x) = Operators.ToSingle (x) @ (274,39--274,48)"; + "let testDecimalToDouble(x) = Operators.ToDouble (x) @ (275,39--275,46)"; + "let testDecimalToDecimal(x) = Operators.ToDecimal (x) @ (276,39--276,48)"; + "let testDecimalToChar(x) = Operators.ToChar (x) @ (277,39--277,45)"; + "let testDecimalToString(x) = Operators.ToString (x) @ (278,39--278,47)"; + "let testCharToByte(x) = Operators.ToByte (x) @ (280,33--280,39)"; + "let testCharToSByte(x) = Operators.ToSByte (x) @ (281,33--281,40)"; + "let testCharToInt16(x) = Operators.ToInt16 (x) @ (282,33--282,40)"; + "let testCharToUInt16(x) = Operators.ToUInt16 (x) @ (283,33--283,41)"; + "let testCharToInt32(x) = Operators.ToInt (x) @ (284,33--284,38)"; + "let testCharToUInt32(x) = Operators.ToUInt32 (x) @ (285,33--285,41)"; + "let testCharToInt64(x) = Operators.ToInt64 (x) @ (286,33--286,40)"; + "let testCharToUInt64(x) = Operators.ToUInt64 (x) @ (287,33--287,41)"; + "let testCharToIntPtr(x) = Operators.ToIntPtr (x) @ (288,33--288,44)"; + "let testCharToUIntPtr(x) = Operators.ToUIntPtr (x) @ (289,33--289,45)"; + "let testCharToSingle(x) = Operators.ToSingle (x) @ (290,33--290,42)"; + "let testCharToDouble(x) = Operators.ToDouble (x) @ (291,33--291,40)"; + "let testCharToChar(x) = Operators.ToChar (x) @ (292,33--292,39)"; + "let testCharToString(x) = Operators.ToString (x) @ (293,33--293,41)"; + "let testStringToByte(x) = Operators.ToByte (x) @ (295,37--295,43)"; + "let testStringToSByte(x) = Operators.ToSByte (x) @ (296,37--296,44)"; + "let testStringToInt16(x) = Operators.ToInt16 (x) @ (297,37--297,44)"; + "let testStringToUInt16(x) = Operators.ToUInt16 (x) @ (298,37--298,45)"; + "let testStringToInt32(x) = Operators.ToInt (x) @ (299,37--299,42)"; + "let testStringToUInt32(x) = Operators.ToUInt32 (x) @ (300,37--300,45)"; + "let testStringToInt64(x) = Operators.ToInt64 (x) @ (301,37--301,44)"; + "let testStringToUInt64(x) = Operators.ToUInt64 (x) @ (302,37--302,45)"; + "let testStringToSingle(x) = Operators.ToSingle (x) @ (303,37--303,46)"; + "let testStringToDouble(x) = Operators.ToDouble (x) @ (304,37--304,44)"; + "let testStringToDecimal(x) = Operators.ToDecimal (x) @ (305,37--305,46)"; + "let testStringToChar(x) = Operators.ToChar (x) @ (306,37--306,43)"; + "let testStringToString(x) = Operators.ToString (x) @ (307,37--307,45)" ] printDeclarations None (List.ofSeq file1.Declarations) |> Seq.toList @@ -929,62 +1388,285 @@ let ``Test Optimized Declarations Project1`` () = let expected2 = [ "type N"; "type IntAbbrev"; "let bool2 = False @ (6,12--6,17)"; - "let testEqualsOperator(e1) (e2) = HashCompare.GenericEqualityIntrinsic<'a> (e1,e2) @ (8,46--8,54)"; - "let testNotEqualsOperator(e1) (e2) = Operators.op_Equality (HashCompare.GenericEqualityIntrinsic<'a> (e1,e2),False) @ (9,46--9,55)"; - "let testLessThanOperator(e1) (e2) = HashCompare.GenericLessThanIntrinsic<'a> (e1,e2) @ (10,46--10,54)"; - "let testLessThanOrEqualsOperator(e1) (e2) = HashCompare.GenericLessOrEqualIntrinsic<'a> (e1,e2) @ (11,46--11,55)"; - "let testGreaterThanOperator(e1) (e2) = HashCompare.GenericGreaterThanIntrinsic<'a> (e1,e2) @ (12,46--12,54)"; - "let testGreaterThanOrEqualsOperator(e1) (e2) = HashCompare.GenericGreaterOrEqualIntrinsic<'a> (e1,e2) @ (13,46--13,55)"; - "let testAdditionOperator(e1) (e2) = Operators.op_Addition (e1,e2) @ (15,38--15,46)"; - "let testSubtractionOperator(e1) (e2) = Operators.op_Subtraction (e1,e2) @ (16,38--16,46)"; - "let testMultiplyOperator(e1) (e2) = Operators.op_Multiply (e1,e2) @ (17,37--17,46)"; - "let testDivisionOperator(e1) (e2) = Operators.op_Division (e1,e2) @ (18,38--18,46)"; - "let testModulusOperator(e1) (e2) = Operators.op_Modulus (e1,e2) @ (19,38--19,46)"; - "let testBitwiseAndOperator(e1) (e2) = Operators.op_BitwiseAnd (e1,e2) @ (20,38--20,48)"; - "let testBitwiseOrOperator(e1) (e2) = Operators.op_BitwiseOr (e1,e2) @ (21,38--21,48)"; - "let testBitwiseXorOperator(e1) (e2) = Operators.op_ExclusiveOr (e1,e2) @ (22,38--22,48)"; - "let testShiftLeftOperator(e1) (e2) = Operators.op_LeftShift (e1,Operators.op_BitwiseAnd (e2,31)) @ (23,38--23,48)"; - "let testShiftRightOperator(e1) (e2) = Operators.op_RightShift (e1,Operators.op_BitwiseAnd (e2,31)) @ (24,38--24,48)"; - "let testUnaryNegOperator(e1) = Operators.op_UnaryNegation (e1) @ (26,33--26,39)"; - "let testUnaryNotOperator(e1) = Operators.op_Equality (e1,False) @ (27,32--27,35)"; - "let testAdditionChecked(e1) (e2) = Checked.op_Addition (e1,e2) @ (29,35--29,52)"; - "let testSubtractionChecked(e1) (e2) = Checked.op_Subtraction (e1,e2) @ (30,35--30,52)"; - "let testMultiplyChecked(e1) (e2) = Checked.op_Multiply (e1,e2) @ (31,35--31,52)"; - "let testUnaryNegChecked(e1) = Checked.op_Subtraction (0,e1) @ (32,32--32,47)"; - "let testToByteChecked(e1) = Checked.ToByte (e1) @ (34,31--34,46)"; - "let testToSByteChecked(e1) = Checked.ToSByte (e1) @ (35,31--35,47)"; - "let testToInt16Checked(e1) = Checked.ToInt16 (e1) @ (36,31--36,47)"; - "let testToUInt16Checked(e1) = Checked.ToUInt16 (e1) @ (37,31--37,48)"; - "let testToIntChecked(e1) = Checked.ToInt32 (e1) @ (38,31--38,45)"; - "let testToInt32Checked(e1) = Checked.ToInt32 (e1) @ (39,31--39,47)"; - "let testToUInt32Checked(e1) = Checked.ToUInt32 (e1) @ (40,31--40,48)"; - "let testToInt64Checked(e1) = Checked.ToInt64 (e1) @ (41,31--41,47)"; - "let testToUInt64Checked(e1) = Checked.ToUInt64 (e1) @ (42,31--42,48)"; - "let testToIntPtrChecked(e1) = Checked.ToIntPtr (e1) @ (43,31--43,51)"; - "let testToUIntPtrChecked(e1) = Checked.ToUIntPtr (e1) @ (44,31--44,52)"; - "let testToByteOperator(e1) = Operators.ToByte (e1) @ (46,31--46,38)"; - "let testToSByteOperator(e1) = Operators.ToSByte (e1) @ (47,31--47,39)"; - "let testToInt16Operator(e1) = Operators.ToInt16 (e1) @ (48,31--48,39)"; - "let testToUInt16Operator(e1) = Operators.ToUInt16 (e1) @ (49,31--49,40)"; - "let testToIntOperator(e1) = e1 @ (50,35--50,37)"; - "let testToInt32Operator(e1) = e1 @ (51,37--51,39)"; - "let testToUInt32Operator(e1) = e1 @ (52,31--52,40)"; - "let testToInt64Operator(e1) = Operators.ToInt64 (e1) @ (53,31--53,39)"; - "let testToUInt64Operator(e1) = Operators.ToInt64 (e1) @ (54,31--54,40)"; - "let testToSingleOperator(e1) = Operators.ToSingle (e1) @ (55,31--55,41)"; - "let testToDoubleOperator(e1) = Operators.ToDouble (e1) @ (56,31--56,39)"; - "let testToIntPtrOperator(e1) = Operators.ToIntPtr (e1) @ (57,31--57,43)"; - "let testToUIntPtrOperator(e1) = Operators.ToIntPtr (e1) @ (58,31--58,44)"; - "let testHashChar(x) = Operators.op_BitwiseOr (Operators.op_LeftShift (x,16),x) @ (60,28--60,34)"; - "let testHashSByte(x) = Operators.op_ExclusiveOr (Operators.op_LeftShift (x,8),x) @ (61,30--61,36)"; - "let testHashInt16(x) = Operators.op_BitwiseOr (Operators.ToUInt16 (x),Operators.op_LeftShift (x,16)) @ (62,30--62,36)"; - "let testHashInt64(x) = Operators.op_ExclusiveOr (Operators.ToInt32 (x),Operators.ToInt32 (Operators.op_RightShift (x,32))) @ (63,30--63,36)"; - "let testHashUInt64(x) = Operators.op_ExclusiveOr (Operators.ToInt32 (x),Operators.ToInt32 (Operators.op_RightShift (x,32))) @ (64,32--64,38)"; - "let testHashIntPtr(x) = Operators.ToInt32 (Operators.ToUInt64 (x)) @ (65,35--65,41)"; - "let testHashUIntPtr(x) = Operators.op_BitwiseAnd (Operators.ToInt32 (Operators.ToUInt64 (x)),2147483647) @ (66,37--66,43)"; - "let testHashString(x) = (if Operators.op_Equality (x,dflt) then 0 else Operators.Hash (x)) @ (68,32--68,38)"; - "let testDualConv(x) = Operators.ToSingle (Operators.ToDouble (x)) @ (69,28--69,38)"; - "let testTypeOf(x) = Operators.TypeOf<'T> () @ (70,24--70,30)" ] + "let testHashChar(x) = Operators.op_BitwiseOr (Operators.op_LeftShift (x,16),x) @ (8,28--8,34)"; + "let testHashSByte(x) = Operators.op_ExclusiveOr (Operators.op_LeftShift (x,8),x) @ (9,30--9,36)"; + "let testHashInt16(x) = Operators.op_BitwiseOr (Operators.ToUInt16 (x),Operators.op_LeftShift (x,16)) @ (10,30--10,36)"; + "let testHashInt64(x) = Operators.op_ExclusiveOr (Operators.ToInt32 (x),Operators.ToInt32 (Operators.op_RightShift (x,32))) @ (11,30--11,36)"; + "let testHashUInt64(x) = Operators.op_ExclusiveOr (Operators.ToInt32 (x),Operators.ToInt32 (Operators.op_RightShift (x,32))) @ (12,32--12,38)"; + "let testHashIntPtr(x) = Operators.ToInt32 (Operators.ToUInt64 (x)) @ (13,35--13,41)"; + "let testHashUIntPtr(x) = Operators.op_BitwiseAnd (Operators.ToInt32 (Operators.ToUInt64 (x)),2147483647) @ (14,37--14,43)"; + "let testHashString(x) = (if Operators.op_Equality (x,dflt) then 0 else Operators.Hash (x)) @ (16,32--16,38)"; + "let testTypeOf(x) = Operators.TypeOf<'T> () @ (17,24--17,30)"; + "let testEqualsOperator(e1) (e2) = HashCompare.GenericEqualityIntrinsic<'a> (e1,e2) @ (19,46--19,54)"; + "let testNotEqualsOperator(e1) (e2) = Operators.op_Equality (HashCompare.GenericEqualityIntrinsic<'a> (e1,e2),False) @ (20,46--20,55)"; + "let testLessThanOperator(e1) (e2) = HashCompare.GenericLessThanIntrinsic<'a> (e1,e2) @ (21,46--21,54)"; + "let testLessThanOrEqualsOperator(e1) (e2) = HashCompare.GenericLessOrEqualIntrinsic<'a> (e1,e2) @ (22,46--22,55)"; + "let testGreaterThanOperator(e1) (e2) = HashCompare.GenericGreaterThanIntrinsic<'a> (e1,e2) @ (23,46--23,54)"; + "let testGreaterThanOrEqualsOperator(e1) (e2) = HashCompare.GenericGreaterOrEqualIntrinsic<'a> (e1,e2) @ (24,46--24,55)"; + "let testAdditionOperator(e1) (e2) = Operators.op_Addition (e1,e2) @ (26,38--26,46)"; + "let testSubtractionOperator(e1) (e2) = Operators.op_Subtraction (e1,e2) @ (27,38--27,46)"; + "let testMultiplyOperator(e1) (e2) = Operators.op_Multiply (e1,e2) @ (28,37--28,46)"; + "let testDivisionOperator(e1) (e2) = Operators.op_Division (e1,e2) @ (29,38--29,46)"; + "let testModulusOperator(e1) (e2) = Operators.op_Modulus (e1,e2) @ (30,38--30,46)"; + "let testBitwiseAndOperator(e1) (e2) = Operators.op_BitwiseAnd (e1,e2) @ (31,38--31,48)"; + "let testBitwiseOrOperator(e1) (e2) = Operators.op_BitwiseOr (e1,e2) @ (32,38--32,48)"; + "let testBitwiseXorOperator(e1) (e2) = Operators.op_ExclusiveOr (e1,e2) @ (33,38--33,48)"; + "let testShiftLeftOperator(e1) (e2) = Operators.op_LeftShift (e1,Operators.op_BitwiseAnd (e2,31)) @ (34,38--34,48)"; + "let testShiftRightOperator(e1) (e2) = Operators.op_RightShift (e1,Operators.op_BitwiseAnd (e2,31)) @ (35,38--35,48)"; + "let testUnaryNegOperator(e1) = Operators.op_UnaryNegation (e1) @ (37,33--37,39)"; + "let testUnaryNotOperator(e1) = Operators.op_Equality (e1,False) @ (38,32--38,35)"; + "let testAdditionChecked(e1) (e2) = Checked.op_Addition (e1,e2) @ (40,35--40,52)"; + "let testSubtractionChecked(e1) (e2) = Checked.op_Subtraction (e1,e2) @ (41,35--41,52)"; + "let testMultiplyChecked(e1) (e2) = Checked.op_Multiply (e1,e2) @ (42,35--42,52)"; + "let testUnaryNegChecked(e1) = Checked.op_Subtraction (0,e1) @ (43,32--43,47)"; + "let testToByteChecked(e1) = Checked.ToByte (e1) @ (45,32--45,47)"; + "let testToSByteChecked(e1) = Checked.ToSByte (e1) @ (46,32--46,48)"; + "let testToInt16Checked(e1) = Checked.ToInt16 (e1) @ (47,32--47,48)"; + "let testToUInt16Checked(e1) = Checked.ToUInt16 (e1) @ (48,32--48,49)"; + "let testToIntChecked(e1) = Checked.ToInt32 (e1) @ (49,32--49,46)"; + "let testToInt32Checked(e1) = Checked.ToInt32 (e1) @ (50,32--50,48)"; + "let testToUInt32Checked(e1) = Checked.ToUInt32 (e1) @ (51,32--51,49)"; + "let testToInt64Checked(e1) = Checked.ToInt64 (e1) @ (52,32--52,48)"; + "let testToUInt64Checked(e1) = Checked.ToUInt64 (e1) @ (53,32--53,49)"; + "let testToIntPtrChecked(e1) = Checked.ToIntPtr (e1) @ (54,32--54,52)"; + "let testToUIntPtrChecked(e1) = Checked.ToUIntPtr (e1) @ (55,32--55,53)"; + "let testToByteOperator(e1) = Operators.ToByte (e1) @ (57,32--57,39)"; + "let testToSByteOperator(e1) = Operators.ToSByte (e1) @ (58,32--58,40)"; + "let testToInt16Operator(e1) = Operators.ToInt16 (e1) @ (59,32--59,40)"; + "let testToUInt16Operator(e1) = Operators.ToUInt16 (e1) @ (60,32--60,41)"; + "let testToIntOperator(e1) = e1 @ (61,36--61,38)"; + "let testToInt32Operator(e1) = e1 @ (62,38--62,40)"; + "let testToUInt32Operator(e1) = e1 @ (63,32--63,41)"; + "let testToInt64Operator(e1) = Operators.ToInt64 (e1) @ (64,32--64,40)"; + "let testToUInt64Operator(e1) = Operators.ToInt64 (e1) @ (65,32--65,41)"; + "let testToIntPtrOperator(e1) = Operators.ToIntPtr (e1) @ (66,32--66,44)"; + "let testToUIntPtrOperator(e1) = Operators.ToIntPtr (e1) @ (67,32--67,45)"; + "let testToSingleOperator(e1) = Operators.ToSingle (e1) @ (68,32--68,42)"; + "let testToDoubleOperator(e1) = Operators.ToDouble (e1) @ (69,32--69,40)"; + "let testToDecimalOperator(e1) = Convert.ToDecimal (e1) @ (70,32--70,42)"; + "let testToCharOperator(e1) = Operators.ToUInt16 (e1) @ (71,32--71,39)"; + "let testToStringOperator(e1) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (e1) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (72,32--72,41)"; + "let testByteToByte(x) = Operators.ToByte (x) @ (74,33--74,39)"; + "let testByteToSByte(x) = Operators.ToSByte (x) @ (75,33--75,40)"; + "let testByteToInt16(x) = Operators.ToInt16 (x) @ (76,33--76,40)"; + "let testByteToUInt16(x) = Operators.ToUInt16 (x) @ (77,33--77,41)"; + "let testByteToInt32(x) = Operators.ToInt32 (x) @ (78,33--78,38)"; + "let testByteToUInt32(x) = Operators.ToUInt32 (x) @ (79,33--79,41)"; + "let testByteToInt64(x) = Operators.ToUInt64 (x) @ (80,33--80,40)"; + "let testByteToUInt64(x) = Operators.ToUInt64 (x) @ (81,33--81,41)"; + "let testByteToIntPtr(x) = Operators.ToIntPtr (x) @ (82,33--82,44)"; + "let testByteToUIntPtr(x) = Operators.ToUIntPtr (x) @ (83,33--83,45)"; + "let testByteToSingle(x) = Operators.ToSingle (Operators.ToDouble (x)) @ (84,33--84,42)"; + "let testByteToDouble(x) = Operators.ToDouble (Operators.ToDouble (x)) @ (85,33--85,40)"; + "let testByteToDecimal(x) = Convert.ToDecimal (x) @ (86,33--86,42)"; + "let testByteToChar(x) = Operators.ToUInt16 (x) @ (87,33--87,39)"; + "let testByteToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (88,33--88,41)"; + "let testSByteToByte(x) = Operators.ToByte (x) @ (90,35--90,41)"; + "let testSByteToSByte(x) = Operators.ToSByte (x) @ (91,35--91,42)"; + "let testSByteToInt16(x) = Operators.ToInt16 (x) @ (92,35--92,42)"; + "let testSByteToUInt16(x) = Operators.ToUInt16 (x) @ (93,35--93,43)"; + "let testSByteToInt32(x) = x @ (94,35--94,40)"; + "let testSByteToUInt32(x) = x @ (95,35--95,43)"; + "let testSByteToInt64(x) = Operators.ToInt64 (x) @ (96,35--96,42)"; + "let testSByteToUInt64(x) = Operators.ToInt64 (x) @ (97,35--97,43)"; + "let testSByteToIntPtr(x) = Operators.ToIntPtr (x) @ (98,35--98,46)"; + "let testSByteToUIntPtr(x) = Operators.ToIntPtr (x) @ (99,35--99,47)"; + "let testSByteToSingle(x) = Operators.ToSingle (x) @ (100,35--100,44)"; + "let testSByteToDouble(x) = Operators.ToDouble (x) @ (101,35--101,42)"; + "let testSByteToDecimal(x) = Convert.ToDecimal (x) @ (102,35--102,44)"; + "let testSByteToChar(x) = Operators.ToUInt16 (x) @ (103,35--103,41)"; + "let testSByteToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (104,35--104,43)"; + "let testInt16ToByte(x) = Operators.ToByte (x) @ (106,35--106,41)"; + "let testInt16ToSByte(x) = Operators.ToSByte (x) @ (107,35--107,42)"; + "let testInt16ToInt16(x) = Operators.ToInt16 (x) @ (108,35--108,42)"; + "let testInt16ToUInt16(x) = Operators.ToUInt16 (x) @ (109,35--109,43)"; + "let testInt16ToInt32(x) = x @ (110,35--110,40)"; + "let testInt16ToUInt32(x) = x @ (111,35--111,43)"; + "let testInt16ToInt64(x) = Operators.ToInt64 (x) @ (112,35--112,42)"; + "let testInt16ToUInt64(x) = Operators.ToInt64 (x) @ (113,35--113,43)"; + "let testInt16ToIntPtr(x) = Operators.ToIntPtr (x) @ (114,35--114,46)"; + "let testInt16ToUIntPtr(x) = Operators.ToIntPtr (x) @ (115,35--115,47)"; + "let testInt16ToSingle(x) = Operators.ToSingle (x) @ (116,35--116,44)"; + "let testInt16ToDouble(x) = Operators.ToDouble (x) @ (117,35--117,42)"; + "let testInt16ToDecimal(x) = Convert.ToDecimal (x) @ (118,35--118,44)"; + "let testInt16ToChar(x) = Operators.ToUInt16 (x) @ (119,35--119,41)"; + "let testInt16ToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (120,35--120,43)"; + "let testUInt16ToByte(x) = Operators.ToByte (x) @ (122,37--122,43)"; + "let testUInt16ToSByte(x) = Operators.ToSByte (x) @ (123,37--123,44)"; + "let testUInt16ToInt16(x) = Operators.ToInt16 (x) @ (124,37--124,44)"; + "let testUInt16ToUInt16(x) = Operators.ToUInt16 (x) @ (125,37--125,45)"; + "let testUInt16ToInt32(x) = Operators.ToInt32 (x) @ (126,37--126,42)"; + "let testUInt16ToUInt32(x) = Operators.ToUInt32 (x) @ (127,37--127,45)"; + "let testUInt16ToInt64(x) = Operators.ToUInt64 (x) @ (128,37--128,44)"; + "let testUInt16ToUInt64(x) = Operators.ToUInt64 (x) @ (129,37--129,45)"; + "let testUInt16ToIntPtr(x) = Operators.ToUIntPtr (x) @ (130,37--130,48)"; + "let testUInt16ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (131,37--131,49)"; + "let testUInt16ToSingle(x) = Operators.ToSingle (Operators.ToDouble (x)) @ (132,37--132,46)"; + "let testUInt16ToDouble(x) = Operators.ToDouble (Operators.ToDouble (x)) @ (133,37--133,44)"; + "let testUInt16ToDecimal(x) = Convert.ToDecimal (x) @ (134,37--134,46)"; + "let testUInt16ToChar(x) = Operators.ToUInt16 (x) @ (135,37--135,43)"; + "let testUInt16ToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (136,37--136,45)"; + "let testInt32ToByte(x) = Operators.ToByte (x) @ (138,33--138,39)"; + "let testInt32ToSByte(x) = Operators.ToSByte (x) @ (139,33--139,40)"; + "let testInt32ToInt16(x) = Operators.ToInt16 (x) @ (140,33--140,40)"; + "let testInt32ToUInt16(x) = Operators.ToUInt16 (x) @ (141,33--141,41)"; + "let testInt32ToInt32(x) = x @ (142,37--142,38)"; + "let testInt32ToUInt32(x) = x @ (143,33--143,41)"; + "let testInt32ToInt64(x) = Operators.ToInt64 (x) @ (144,33--144,40)"; + "let testInt32ToUInt64(x) = Operators.ToInt64 (x) @ (145,33--145,41)"; + "let testInt32ToIntPtr(x) = Operators.ToIntPtr (x) @ (146,33--146,44)"; + "let testInt32ToUIntPtr(x) = Operators.ToIntPtr (x) @ (147,33--147,45)"; + "let testInt32ToSingle(x) = Operators.ToSingle (x) @ (148,33--148,42)"; + "let testInt32ToDouble(x) = Operators.ToDouble (x) @ (149,33--149,40)"; + "let testInt32ToDecimal(x) = Convert.ToDecimal (x) @ (150,33--150,42)"; + "let testInt32ToChar(x) = Operators.ToUInt16 (x) @ (151,33--151,39)"; + "let testInt32ToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (152,33--152,41)"; + "let testUInt32ToByte(x) = Operators.ToByte (x) @ (154,37--154,43)"; + "let testUInt32ToSByte(x) = Operators.ToSByte (x) @ (155,37--155,44)"; + "let testUInt32ToInt16(x) = Operators.ToInt16 (x) @ (156,37--156,44)"; + "let testUInt32ToUInt16(x) = Operators.ToUInt16 (x) @ (157,37--157,45)"; + "let testUInt32ToInt32(x) = x @ (158,37--158,42)"; + "let testUInt32ToUInt32(x) = Operators.ToUInt32 (x) @ (159,37--159,45)"; + "let testUInt32ToInt64(x) = Operators.ToUInt64 (x) @ (160,37--160,44)"; + "let testUInt32ToUInt64(x) = Operators.ToUInt64 (x) @ (161,37--161,45)"; + "let testUInt32ToIntPtr(x) = Operators.ToUIntPtr (x) @ (162,37--162,48)"; + "let testUInt32ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (163,37--163,49)"; + "let testUInt32ToSingle(x) = Operators.ToSingle (Operators.ToDouble (x)) @ (164,37--164,46)"; + "let testUInt32ToDouble(x) = Operators.ToDouble (Operators.ToDouble (x)) @ (165,37--165,44)"; + "let testUInt32ToDecimal(x) = Convert.ToDecimal (x) @ (166,37--166,46)"; + "let testUInt32ToChar(x) = Operators.ToUInt16 (x) @ (167,37--167,43)"; + "let testUInt32ToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (168,37--168,45)"; + "let testInt64ToByte(x) = Operators.ToByte (x) @ (170,35--170,41)"; + "let testInt64ToSByte(x) = Operators.ToSByte (x) @ (171,35--171,42)"; + "let testInt64ToInt16(x) = Operators.ToInt16 (x) @ (172,35--172,42)"; + "let testInt64ToUInt16(x) = Operators.ToUInt16 (x) @ (173,35--173,43)"; + "let testInt64ToInt32(x) = Operators.ToInt32 (x) @ (174,35--174,40)"; + "let testInt64ToUInt32(x) = Operators.ToUInt32 (x) @ (175,35--175,43)"; + "let testInt64ToInt64(x) = Operators.ToInt64 (x) @ (176,35--176,42)"; + "let testInt64ToUInt64(x) = x @ (177,35--177,43)"; + "let testInt64ToIntPtr(x) = Operators.ToIntPtr (x) @ (178,35--178,46)"; + "let testInt64ToUIntPtr(x) = Operators.ToIntPtr (x) @ (179,35--179,47)"; + "let testInt64ToSingle(x) = Operators.ToSingle (x) @ (180,35--180,44)"; + "let testInt64ToDouble(x) = Operators.ToDouble (x) @ (181,35--181,42)"; + "let testInt64ToDecimal(x) = Convert.ToDecimal (x) @ (182,35--182,44)"; + "let testInt64ToChar(x) = Operators.ToUInt16 (x) @ (183,35--183,41)"; + "let testInt64ToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (184,35--184,43)"; + "let testUInt64ToByte(x) = Operators.ToByte (x) @ (186,37--186,43)"; + "let testUInt64ToSByte(x) = Operators.ToSByte (x) @ (187,37--187,44)"; + "let testUInt64ToInt16(x) = Operators.ToInt16 (x) @ (188,37--188,44)"; + "let testUInt64ToUInt16(x) = Operators.ToUInt16 (x) @ (189,37--189,45)"; + "let testUInt64ToInt32(x) = Operators.ToInt32 (x) @ (190,37--190,42)"; + "let testUInt64ToUInt32(x) = Operators.ToUInt32 (x) @ (191,37--191,45)"; + "let testUInt64ToInt64(x) = x @ (192,37--192,44)"; + "let testUInt64ToUInt64(x) = x @ (193,44--193,45)"; + "let testUInt64ToIntPtr(x) = Operators.ToUIntPtr (x) @ (194,37--194,48)"; + "let testUInt64ToUIntPtr(x) = Operators.ToUIntPtr (x) @ (195,37--195,49)"; + "let testUInt64ToSingle(x) = Operators.ToSingle (Operators.ToDouble (x)) @ (196,37--196,46)"; + "let testUInt64ToDouble(x) = Operators.ToDouble (Operators.ToDouble (x)) @ (197,37--197,44)"; + "let testUInt64ToDecimal(x) = Convert.ToDecimal (x) @ (198,37--198,46)"; + "let testUInt64ToChar(x) = Operators.ToUInt16 (x) @ (199,37--199,43)"; + "let testUInt64ToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (200,37--200,45)"; + "let testIntPtrToByte(x) = Operators.ToByte (x) @ (202,40--202,46)"; + "let testIntPtrToSByte(x) = Operators.ToSByte (x) @ (203,40--203,47)"; + "let testIntPtrToInt16(x) = Operators.ToInt16 (x) @ (204,40--204,47)"; + "let testIntPtrToUInt16(x) = Operators.ToUInt16 (x) @ (205,40--205,48)"; + "let testIntPtrToInt32(x) = Operators.ToInt32 (x) @ (206,40--206,45)"; + "let testIntPtrToUInt32(x) = Operators.ToUInt32 (x) @ (207,40--207,48)"; + "let testIntPtrToInt64(x) = Operators.ToInt64 (x) @ (208,40--208,47)"; + "let testIntPtrToUInt64(x) = Operators.ToInt64 (x) @ (209,40--209,48)"; + "let testIntPtrToIntPtr(x) = Operators.ToIntPtr (x) @ (210,40--210,51)"; + "let testIntPtrToUIntPtr(x) = x @ (211,40--211,52)"; + "let testIntPtrToSingle(x) = Operators.ToSingle (x) @ (212,40--212,49)"; + "let testIntPtrToDouble(x) = Operators.ToDouble (x) @ (213,40--213,47)"; + "let testIntPtrToDecimal(x) = Convert.ToDecimal (Operators.ToInt64 (x)) @ (214,40--214,49)"; + "let testIntPtrToChar(x) = Operators.ToUInt16 (x) @ (215,40--215,46)"; + "let testIntPtrToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (216,40--216,48)"; + "let testUIntPtrToByte(x) = Operators.ToByte (x) @ (218,42--218,48)"; + "let testUIntPtrToSByte(x) = Operators.ToSByte (x) @ (219,42--219,49)"; + "let testUIntPtrToInt16(x) = Operators.ToInt16 (x) @ (220,42--220,49)"; + "let testUIntPtrToUInt16(x) = Operators.ToUInt16 (x) @ (221,42--221,50)"; + "let testUIntPtrToInt32(x) = Operators.ToInt32 (x) @ (222,42--222,47)"; + "let testUIntPtrToUInt32(x) = Operators.ToUInt32 (x) @ (223,42--223,50)"; + "let testUIntPtrToInt64(x) = Operators.ToUInt64 (x) @ (224,42--224,49)"; + "let testUIntPtrToUInt64(x) = Operators.ToUInt64 (x) @ (225,42--225,50)"; + "let testUIntPtrToIntPtr(x) = x @ (226,42--226,53)"; + "let testUIntPtrToUIntPtr(x) = x @ (227,53--227,54)"; + "let testUIntPtrToSingle(x) = Operators.ToSingle (Operators.ToDouble (x)) @ (228,42--228,51)"; + "let testUIntPtrToDouble(x) = Operators.ToDouble (Operators.ToDouble (x)) @ (229,42--229,49)"; + "let testUIntPtrToDecimal(x) = Convert.ToDecimal (Operators.ToUInt64 (x)) @ (230,42--230,51)"; + "let testUIntPtrToChar(x) = Operators.ToUInt16 (x) @ (231,42--231,48)"; + "let testUIntPtrToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (232,42--232,50)"; + "let testSingleToByte(x) = Operators.ToByte (x) @ (234,38--234,44)"; + "let testSingleToSByte(x) = Operators.ToSByte (x) @ (235,38--235,45)"; + "let testSingleToInt16(x) = Operators.ToInt16 (x) @ (236,38--236,45)"; + "let testSingleToUInt16(x) = Operators.ToUInt16 (x) @ (237,38--237,46)"; + "let testSingleToInt32(x) = Operators.ToInt32 (x) @ (238,38--238,43)"; + "let testSingleToUInt32(x) = Operators.ToUInt32 (x) @ (239,38--239,46)"; + "let testSingleToInt64(x) = Operators.ToInt64 (x) @ (240,38--240,45)"; + "let testSingleToUInt64(x) = Operators.ToUInt64 (x) @ (241,38--241,46)"; + "let testSingleToIntPtr(x) = Operators.ToIntPtr (x) @ (242,38--242,49)"; + "let testSingleToUIntPtr(x) = Operators.ToUIntPtr (x) @ (243,38--243,50)"; + "let testSingleToSingle(x) = Operators.ToSingle (x) @ (244,38--244,47)"; + "let testSingleToDouble(x) = Operators.ToDouble (x) @ (245,38--245,45)"; + "let testSingleToDecimal(x) = Convert.ToDecimal (x) @ (246,38--246,47)"; + "let testSingleToChar(x) = Operators.ToUInt16 (x) @ (247,38--247,44)"; + "let testSingleToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (248,38--248,46)"; + "let testDoubleToByte(x) = Operators.ToByte (x) @ (250,36--250,42)"; + "let testDoubleToSByte(x) = Operators.ToSByte (x) @ (251,36--251,43)"; + "let testDoubleToInt16(x) = Operators.ToInt16 (x) @ (252,36--252,43)"; + "let testDoubleToUInt16(x) = Operators.ToUInt16 (x) @ (253,36--253,44)"; + "let testDoubleToInt32(x) = Operators.ToInt32 (x) @ (254,36--254,41)"; + "let testDoubleToUInt32(x) = Operators.ToUInt32 (x) @ (255,36--255,44)"; + "let testDoubleToInt64(x) = Operators.ToInt64 (x) @ (256,36--256,43)"; + "let testDoubleToUInt64(x) = Operators.ToUInt64 (x) @ (257,36--257,44)"; + "let testDoubleToIntPtr(x) = Operators.ToIntPtr (x) @ (258,36--258,47)"; + "let testDoubleToUIntPtr(x) = Operators.ToUIntPtr (x) @ (259,36--259,48)"; + "let testDoubleToSingle(x) = Operators.ToSingle (x) @ (260,36--260,45)"; + "let testDoubleToDouble(x) = Operators.ToDouble (x) @ (261,36--261,43)"; + "let testDoubleToDecimal(x) = Convert.ToDecimal (x) @ (262,36--262,45)"; + "let testDoubleToChar(x) = Operators.ToUInt16 (x) @ (263,36--263,42)"; + "let testDoubleToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (264,36--264,44)"; + "let testDecimalToByte(x) = Decimal.op_Explicit (x) @ (266,39--266,45)"; + "let testDecimalToSByte(x) = Decimal.op_Explicit (x) @ (267,39--267,46)"; + "let testDecimalToInt16(x) = Decimal.op_Explicit (x) @ (268,39--268,46)"; + "let testDecimalToUInt16(x) = Decimal.op_Explicit (x) @ (269,39--269,47)"; + "let testDecimalToInt32(x) = Decimal.op_Explicit (x) @ (270,39--270,44)"; + "let testDecimalToUInt32(x) = Decimal.op_Explicit (x) @ (271,39--271,47)"; + "let testDecimalToInt64(x) = Decimal.op_Explicit (x) @ (272,39--272,46)"; + "let testDecimalToUInt64(x) = Decimal.op_Explicit (x) @ (273,39--273,47)"; + "let testDecimalToSingle(x) = Decimal.op_Explicit (x) @ (274,39--274,48)"; + "let testDecimalToDouble(x) = Convert.ToDouble (x) @ (275,39--275,46)"; + "let testDecimalToDecimal(x) = x @ (276,47--276,48)"; + "let testDecimalToChar(x) = Decimal.op_Explicit (x) @ (277,39--277,45)"; + "let testDecimalToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (278,39--278,47)"; + "let testCharToByte(x) = Operators.ToByte (x) @ (280,33--280,39)"; + "let testCharToSByte(x) = Operators.ToSByte (x) @ (281,33--281,40)"; + "let testCharToInt16(x) = Operators.ToInt16 (x) @ (282,33--282,40)"; + "let testCharToUInt16(x) = Operators.ToUInt16 (x) @ (283,33--283,41)"; + "let testCharToInt32(x) = Operators.ToInt32 (x) @ (284,33--284,38)"; + "let testCharToUInt32(x) = Operators.ToUInt32 (x) @ (285,33--285,41)"; + "let testCharToInt64(x) = Operators.ToUInt64 (x) @ (286,33--286,40)"; + "let testCharToUInt64(x) = Operators.ToUInt64 (x) @ (287,33--287,41)"; + "let testCharToIntPtr(x) = Operators.ToUIntPtr (x) @ (288,33--288,44)"; + "let testCharToUIntPtr(x) = Operators.ToUIntPtr (x) @ (289,33--289,45)"; + "let testCharToSingle(x) = Operators.ToSingle (Operators.ToDouble (x)) @ (290,33--290,42)"; + "let testCharToDouble(x) = Operators.ToDouble (Operators.ToDouble (x)) @ (291,33--291,40)"; + "let testCharToChar(x) = Operators.ToUInt16 (x) @ (292,33--292,39)"; + "let testCharToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (293,33--293,41)"; + "let testStringToByte(x) = Checked.ToByte (LanguagePrimitives.ParseUInt32 (x)) @ (295,37--295,43)"; + "let testStringToSByte(x) = Checked.ToSByte (LanguagePrimitives.ParseInt32 (x)) @ (296,37--296,44)"; + "let testStringToInt16(x) = Checked.ToInt16 (LanguagePrimitives.ParseInt32 (x)) @ (297,37--297,44)"; + "let testStringToUInt16(x) = Checked.ToUInt16 (LanguagePrimitives.ParseUInt32 (x)) @ (298,37--298,45)"; + "let testStringToInt32(x) = LanguagePrimitives.ParseInt32 (x) @ (299,37--299,42)"; + "let testStringToUInt32(x) = LanguagePrimitives.ParseUInt32 (x) @ (300,37--300,45)"; + "let testStringToInt64(x) = LanguagePrimitives.ParseInt64 (x) @ (301,37--301,44)"; + "let testStringToUInt64(x) = LanguagePrimitives.ParseUInt64 (x) @ (302,37--302,45)"; + "let testStringToSingle(x) = Single.Parse ((if Operators.op_Equality (x,dflt) then dflt else x.Replace(\"_\",\"\")),167,CultureInfo.get_InvariantCulture () :> System.IFormatProvider) @ (303,37--303,46)"; + "let testStringToDouble(x) = Double.Parse ((if Operators.op_Equality (x,dflt) then dflt else x.Replace(\"_\",\"\")),167,CultureInfo.get_InvariantCulture () :> System.IFormatProvider) @ (304,37--304,44)"; + "let testStringToDecimal(x) = Decimal.Parse (x,167,CultureInfo.get_InvariantCulture () :> System.IFormatProvider) @ (305,37--305,46)"; + "let testStringToChar(x) = Char.Parse (x) @ (306,37--306,43)"; + "let testStringToString(x) = let matchValue: Microsoft.FSharp.Core.obj = Operators.Box (x) in match (if Operators.op_Equality (matchValue,dflt) then $0 else (if matchValue :? System.IFormattable then $1 else $2)) targets ... @ (307,37--307,45)" ] + // printFSharpDecls "" file2.Declarations |> Seq.iter (printfn "%s")