--- a/RegressionTests__IntegerTest.st	Wed May 12 09:23:51 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Wed May 12 11:38:47 1999 +0200
@@ -91,14 +91,23 @@
     "arithmetic overFlow checks"
 
 "/    self test:[(maxVal + 1) inspect.maxValPlus1 inspect. true].
-    self test:[maxVal + 1 = maxValPlus1].
-    self test:[minVal - 1 = minValMinus1].
+    self test:[(maxVal perform:'+' asSymbol with:1) = maxValPlus1].
+    self test:[(maxVal + 1) = maxValPlus1].
+    self test:[(minVal perform:'-' asSymbol with:1) = minValMinus1].
+    self test:[(minVal - 1) = minValMinus1].
 
+    self test:[(halfMax perform:'+' asSymbol with:halfMax) = maxValPlus1].
     self test:[(halfMax + halfMax) = maxValPlus1].
+    self test:[(halfMin perform:'+' asSymbol with:halfMin) == minVal].
     self test:[(halfMin + halfMin) == minVal].
+    self test:[(halfMax perform:'*' asSymbol with:2) = maxValPlus1].
     self test:[(halfMax * 2) = maxValPlus1].
+    self test:[(halfMin perform:'*' asSymbol with:2) == minVal].
     self test:[(halfMin * 2) == minVal].
-    self test:[maxValPlus1 // 2 == halfMax].
+    self test:[(maxValPlus1 perform:'//' asSymbol with:2) == halfMax].
+    self test:[(maxValPlus1 // 2) == halfMax].
+    self test:[(halfMax perform:'bitShift:' asSymbol with:1) = maxValPlus1].
+    self test:[(halfMin perform:'bitShift:' asSymbol with:1) == minVal].
     self test:[(halfMax bitShift:1) = maxValPlus1].
     self test:[(halfMin bitShift:1) == minVal].