--- a/RegressionTests__IntegerTest.st Tue Sep 19 10:12:30 2017 +0200
+++ b/RegressionTests__IntegerTest.st Tue Sep 19 16:37:09 2017 +0200
@@ -1688,8 +1688,8 @@
minValMinus1 := -1073741825.
self assert:(minValMinus1 hexPrintString = '-40000001').
self assert:(maxValPlus1 hexPrintString = '40000000').
- halfMin := -16r20000000.
- halfMax := 16r20000000.
+ halfMin := 16r-20000000.
+ halfMax := 16r-20000000.
].
SmallInteger maxBytes == 8 ifTrue:[
self assert:(minVal hexPrintString = '-4000000000000000').
@@ -1700,7 +1700,7 @@
minValMinus1 := -4611686018427387905.
self assert:(minValMinus1 hexPrintString = '-4000000000000001').
self assert:(maxValPlus1 hexPrintString = '4000000000000000').
- halfMin := -16r2000000000000000.
+ halfMin := 16r-2000000000000000.
halfMax := 16r2000000000000000.
].
@@ -1740,7 +1740,8 @@
self basicNew testInteger1
"
- "Modified: / 6.6.1999 / 14:46:11 / cg"
+ "Modified: / 06-06-1999 / 14:46:11 / cg"
+ "Modified: / 19-09-2017 / 16:27:24 / stefan"
!
testIntegerMisc
@@ -4345,17 +4346,17 @@
self assert:((Integer readFrom:'800000000000000' radix:16) hexPrintString = '800000000000000').
self assert:((Integer readFrom:'16r-FFFFFFFF') printString = '-4294967295').
- self assert:((Integer readFrom:'-16rFFFFFFFFF') hexPrintString = '-FFFFFFFFF').
- self assert:((Integer readFrom:'-16rFFFFFFFFFF') hexPrintString = '-FFFFFFFFFF').
- self assert:((Integer readFrom:'-16rFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFF').
- self assert:((Integer readFrom:'-16rFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFF').
- self assert:((Integer readFrom:'-16rFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFF').
- self assert:((Integer readFrom:'-16rFFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFFF').
- self assert:((Integer readFrom:'-16rFFFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFFFF').
- self assert:((Integer readFrom:'-16r3FFFFFFFFFFFFFF') hexPrintString = '-3FFFFFFFFFFFFFF').
- self assert:((Integer readFrom:'-16r7FFFFFFFFFFFFFF') hexPrintString = '-7FFFFFFFFFFFFFF').
- self assert:((Integer readFrom:'-16r400000000000000') hexPrintString = '-400000000000000').
- self assert:((Integer readFrom:'-16r800000000000000') hexPrintString = '-800000000000000').
+ self assert:((Integer readFrom:'16r-FFFFFFFFF') hexPrintString = '-FFFFFFFFF').
+ self assert:((Integer readFrom:'16r-FFFFFFFFFF') hexPrintString = '-FFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-FFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-FFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-FFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-FFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-FFFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-3FFFFFFFFFFFFFF') hexPrintString = '-3FFFFFFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-7FFFFFFFFFFFFFF') hexPrintString = '-7FFFFFFFFFFFFFF').
+ self assert:((Integer readFrom:'16r-400000000000000') hexPrintString = '-400000000000000').
+ self assert:((Integer readFrom:'16r-800000000000000') hexPrintString = '-800000000000000').
self assert:((Integer readFrom:'10000000' radix:16) hexPrintString = '10000000').
self assert:((Integer readFrom:'100000000' radix:16) hexPrintString = '100000000').
@@ -4392,6 +4393,8 @@
"
self basicNew testReading1
"
+
+ "Modified: / 19-09-2017 / 16:27:56 / stefan"
!
testReadingPrinting1
@@ -4477,7 +4480,7 @@
and via constructed performs. The reason is to test both inlined
JIT-compiler code AND the regular methods code."
- |s n1 n2 t|
+ |n1 n2 t|
"/ test division and modulu ...
self assert:(1 printString = '1').
@@ -4490,11 +4493,11 @@
"addition with overflow"
SmallInteger maxBytes == 4 ifTrue:[
- n1 := 16r3FFFFFFF.
- n2 := -16r40000000.
+ n1 := 16r3FFFFFFF.
+ n2 := 16r-40000000.
] ifFalse:[
- n1 := 16r3FFFFFFFFFFFFFFF.
- n2 := -16r4000000000000000.
+ n1 := 16r3FFFFFFFFFFFFFFF.
+ n2 := 16r-4000000000000000.
].
self assert:(n1 class == SmallInteger).
self assert:(n2 class == SmallInteger).
@@ -4526,8 +4529,9 @@
self basicNew testSmallIntegerArithmetic
"
- "Created: / 6.6.1999 / 14:47:51 / cg"
- "Modified: / 9.6.1999 / 17:49:57 / cg"
+ "Created: / 06-06-1999 / 14:47:51 / cg"
+ "Modified: / 09-06-1999 / 17:49:57 / cg"
+ "Modified (format): / 19-09-2017 / 16:28:09 / stefan"
!
testSmallIntegerDivision1
@@ -5017,9 +5021,9 @@
self assert:(n3 == n1).
self assert:(n1 = 16r3FFFFFFF).
- self assert:(n2 = -16r3FFFFFFF).
+ self assert:(n2 = 16r-3FFFFFFF).
self assert:(n1 == 16r3FFFFFFF).
- self assert:(n2 == -16r3FFFFFFF).
+ self assert:(n2 == 16r-3FFFFFFF).
self assert:(n1 printString = '1073741823').
self assert:(n2 printString = '-1073741823').
@@ -5033,7 +5037,7 @@
self assert:(n1 class == SmallInteger).
self assert:(n2 class == SmallInteger).
self assert:(n3 == n1).
- self assert:(n2 == -16rfFFFFFFF).
+ self assert:(n2 == 16r-fFFFFFFF).
self assert:(n1 == 16rfFFFFFFF).
] ifFalse:[
self assert:(n1 class == LargeInteger).
@@ -5041,7 +5045,7 @@
self assert:(n3 = n1).
].
self assert:(n1 = 16rfFFFFFFF).
- self assert:(n2 = -16rfFFFFFFF).
+ self assert:(n2 = 16r-fFFFFFFF).
self assert:(n1 printString = '4294967295').
self assert:(n2 printString = '-4294967295').
@@ -5057,18 +5061,18 @@
SmallInteger maxBytes == 4 ifTrue:[
self assert:(n1 = 16r3FFFFFFF).
- self assert:(n2 = -16r3FFFFFFF).
+ self assert:(n2 = 16r-3FFFFFFF).
self assert:(n1 == 16r3FFFFFFF).
- self assert:(n2 == -16r3FFFFFFF).
+ self assert:(n2 == 16r-3FFFFFFF).
self assert:(n1 printString = '1073741823').
self assert:(n2 printString = '-1073741823').
] ifFalse:[
self assert:(n1 printString = '4611686018427387903').
self assert:(n2 printString = '-4611686018427387903').
self assert:(n1 = 16r3FFFFFFFFFFFFFFF).
- self assert:(n2 = -16r3FFFFFFFFFFFFFFF).
+ self assert:(n2 = 16r-3FFFFFFFFFFFFFFF).
self assert:(n1 == 16r3FFFFFFFFFFFFFFF).
- self assert:(n2 == -16r3FFFFFFFFFFFFFFF).
+ self assert:(n2 == 16r-3FFFFFFFFFFFFFFF).
].
"
@@ -5076,6 +5080,7 @@
"
"Modified: / 10-10-2016 / 23:31:11 / cg"
+ "Modified (format): / 19-09-2017 / 16:28:22 / stefan"
! !
!IntegerTest methodsFor:'tests-class protocol'!