--- a/RegressionTests__IntegerTest.st Tue May 11 17:34:33 1999 +0200
+++ b/RegressionTests__IntegerTest.st Wed May 12 09:23:51 1999 +0200
@@ -169,6 +169,37 @@
self test:[(20 factorial / 19 factorial) == 20].
"Large + Large addition"
+ self test:[(Integer readFrom:'4865804016353280000') printString = '4865804016353280000'].
+ self test:[(Integer readFrom:'FFFFFFFF' radix:16) hexPrintString = 'FFFFFFFF'].
+ self test:[(Integer readFrom:'FFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFF'].
+ self test:[(Integer readFrom:'FFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFF'].
+ self test:[(Integer readFrom:'FFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFF'].
+ self test:[(Integer readFrom:'FFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFF'].
+
+ self test:[(Integer readFrom:'10000000' radix:16) hexPrintString = '10000000'].
+ self test:[(Integer readFrom:'100000000' radix:16) hexPrintString = '100000000'].
+ self test:[(Integer readFrom:'1000000000' radix:16) hexPrintString = '1000000000'].
+ self test:[(Integer readFrom:'10000000000' radix:16) hexPrintString = '10000000000'].
+ self test:[(Integer readFrom:'100000000000' radix:16) hexPrintString = '100000000000'].
+
+ t := Integer readFrom:'FFFFFFFF' radix:16.
+ self test:[(t + 1) hexPrintString = '100000000'].
+ t := Integer readFrom:'FFFFFFFFF' radix:16.
+ self test:[(t + 1) hexPrintString = '1000000000'].
+ t := Integer readFrom:'FFFFFFFFFF' radix:16.
+ self test:[(t + 1) hexPrintString = '10000000000'].
+ t := Integer readFrom:'FFFFFFFFFFF' radix:16.
+ self test:[(t + 1) hexPrintString = '100000000000'].
+
+ t := Integer readFrom:'10000000' radix:16.
+ self test:[(t + 1) hexPrintString = '10000001'].
+ t := Integer readFrom:'100000000' radix:16.
+ self test:[(t + 1) hexPrintString = '100000001'].
+ t := Integer readFrom:'1000000000' radix:16.
+ self test:[(t + 1) hexPrintString = '1000000001'].
+ t := Integer readFrom:'10000000000' radix:16.
+ self test:[(t + 1) hexPrintString = '10000000001'].
+
self test:[(20 factorial + 20 factorial) printString = '4865804016353280000'].
self test:[(20 factorial + 1) printString = '2432902008176640001'].
self test:[(20 factorial + 1000) printString = '2432902008176641000'].