RegressionTests__IntegerTest.st
changeset 38 d9e56dee842c
parent 37 166691c3c99d
child 39 bed97f34d7e8
--- a/RegressionTests__IntegerTest.st	Mon Jun 14 13:17:34 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Mon Jun 14 13:41:40 1999 +0200
@@ -1032,8 +1032,6 @@
     self test:[10000 printString = '10000'].
     self test:[100000 printString = '100000'].
 
-    self testSmallIntegerMultiplication1.
-
     "addition with overflow"
 
     SmallInteger maxBytes == 4 ifTrue:[
@@ -1064,6 +1062,10 @@
     self test:[(n1 perform:'abs' asSymbol) == n1].
     self test:[(n2 perform:'abs' asSymbol) = n2 negated].
 
+    self testSmallIntegerMultiplication1.
+    self testSmallIntegerMultiplication1b.
+    self testSmallIntegerMultiplication2.
+
     "
      self testSmallIntegerArithmetic
     "
@@ -1105,29 +1107,29 @@
     self test:[(n1 perform:'*' asSymbol with:3) printString = '300000'].
     self test:[(n1 * 4) printString = '400000'].
     self test:[(n1 perform:'*' asSymbol with:4) printString = '400000'].
-    self test:[(n1 * 5) printCR. (n1 * 5) printString = '500000'].
+    self test:[(n1 * 5) printString = '500000'].
     self test:[(n1 perform:'*' asSymbol with:5) printString = '500000'].
-    self test:[(n1 * 6) printCR. (n1 * 6) printString = '600000'].
+    self test:[(n1 * 6) printString = '600000'].
     self test:[(n1 perform:'*' asSymbol with:6) printString = '600000'].
-    self test:[(n1 * 7) printCR. (n1 * 7) printString = '700000'].
+    self test:[(n1 * 7) printString = '700000'].
     self test:[(n1 perform:'*' asSymbol with:7) printString = '700000'].
-    self test:[(n1 * 8) printCR. (n1 * 8) printString = '800000'].
+    self test:[(n1 * 8) printString = '800000'].
     self test:[(n1 perform:'*' asSymbol with:8) printString = '800000'].
-    self test:[(n1 * 9) printCR. (n1 * 9) printString = '900000'].
+    self test:[(n1 * 9) printString = '900000'].
     self test:[(n1 perform:'*' asSymbol with:9) printString = '900000'].
-    self test:[(n1 * 10) printCR. (n1 * 10) printString = '1000000'].
+    self test:[(n1 * 10) printString = '1000000'].
     self test:[(n1 perform:'*' asSymbol with:10) printString = '1000000'].
-    self test:[(n1 * 11) printCR. (n1 * 11) printString = '1100000'].
+    self test:[(n1 * 11) printString = '1100000'].
     self test:[(n1 perform:'*' asSymbol with:11) printString = '1100000'].
-    self test:[(n1 * 12) printCR. (n1 * 12) printString = '1200000'].
+    self test:[(n1 * 12) printString = '1200000'].
     self test:[(n1 perform:'*' asSymbol with:12) printString = '1200000'].
-    self test:[(n1 * 13) printCR. (n1 * 13) printString = '1300000'].
+    self test:[(n1 * 13) printString = '1300000'].
     self test:[(n1 perform:'*' asSymbol with:13) printString = '1300000'].
-    self test:[(n1 * 14) printCR. (n1 * 14) printString = '1400000'].
+    self test:[(n1 * 14) printString = '1400000'].
     self test:[(n1 perform:'*' asSymbol with:14) printString = '1400000'].
-    self test:[(n1 * 15) printCR. (n1 * 15) printString = '1500000'].
+    self test:[(n1 * 15) printString = '1500000'].
     self test:[(n1 perform:'*' asSymbol with:15) printString = '1500000'].
-    self test:[(n1 * 16) printCR. (n1 * 16) printString = '1600000'].
+    self test:[(n1 * 16) printString = '1600000'].
     self test:[(n1 perform:'*' asSymbol with:16) printString = '1600000'].
 
     "
@@ -1149,7 +1151,7 @@
     n1 := 100000.
     n2 := n1 negated.
 
-    self test:[(0 * n1) printString printCR. (0 * n1) printString = '0'].
+    self test:[(0 * n1) printString = '0'].
     self test:[(0 perform:'*' asSymbol with:n1) printString = '0'].
 
     self test:[(1 * n1) printString = '100000'].