--- a/RegressionTests__IntegerTest.st Sun Jun 06 16:38:15 1999 +0200
+++ b/RegressionTests__IntegerTest.st Sun Jun 06 20:53:39 1999 +0200
@@ -448,7 +448,37 @@
self test:[(20 factorial + 1) printString = '2432902008176640001'].
self test:[(20 factorial + 1000) printString = '2432902008176641000'].
- "Large - Large addition"
+ "Large + Small addition"
+
+ n1 := 16r3FFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '40000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000'].
+ n1 := 16r3FFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '400000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000'].
+ n1 := 16r3FFFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '4000000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000'].
+ n1 := 16r3FFFFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '40000000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000'].
+ n1 := 16r3FFFFFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '400000000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000'].
+ n1 := 16r3FFFFFFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '4000000000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000'].
+ n1 := 16r3FFFFFFFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '40000000000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000000'].
+ n1 := 16r3FFFFFFFFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '400000000000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000000'].
+ n1 := 16r3FFFFFFFFFFFFFFF. n2 := 1.
+ self test:[(n1 + n2 ) hexPrintString = '4000000000000000'].
+ self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000000'].
+
+ "Large + Large addition"
n1 := 16r100000000. n2 := 16r7FFFFFFF.
self test:[(n1 - n2 ) hexPrintString = '80000001'].