--- a/RegressionTests__IntegerTest.st	Tue May 11 14:55:11 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Tue May 11 17:34:33 1999 +0200
@@ -6,6 +6,24 @@
 !
 
 
+!IntegerTest class methodsFor:'misc'!
+
+testPlus1_a:arg
+    ^ arg + 1
+
+    "
+     (self testPlus1_a:SmallInteger maxVal) =   1073741824  
+    "
+!
+
+testPlus1_b:arg
+    ^ arg perform:#+ with:1
+
+    "
+     (self testPlus1_b:SmallInteger maxVal) ==   1073741824  
+    "
+! !
+
 !IntegerTest class methodsFor:'private'!
 
 test:aBlock
@@ -72,6 +90,7 @@
 
     "arithmetic overFlow checks"
 
+"/    self test:[(maxVal + 1) inspect.maxValPlus1 inspect. true].
     self test:[maxVal + 1 = maxValPlus1].
     self test:[minVal - 1 = minValMinus1].
 
@@ -103,6 +122,8 @@
     SmallInteger maxBytes == 8 ifTrue:[
         self test:[t1 * t1 == 10000000000].
     ].
+
+    self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000'].
     self test:[(t1 * t1) printString = '10000000000'].
     t1 := 1000000.
     self test:[(t1 * t1) printString = '1000000000000'].