*** empty log message ***
authorsr
Tue, 10 Oct 2017 16:24:22 +0200
changeset 1766 4ab276d5037d
parent 1765 da8d132a303a
child 1767 3728335d3c8c
*** empty log message ***
RegressionTests__SmallIntegerTest.st
--- a/RegressionTests__SmallIntegerTest.st	Tue Oct 10 16:22:22 2017 +0200
+++ b/RegressionTests__SmallIntegerTest.st	Tue Oct 10 16:24:22 2017 +0200
@@ -147,7 +147,7 @@
 !
 
 testDivide
-	|zero _1 _2 _3 _4 _m2 _m4|
+	|zero us1 us2 us3 us4 usm2 usm4|
 
 	"circumvent compiler error about division by zero"
 	zero := 0.
@@ -160,19 +160,19 @@
 	self assert: -4 / -2 = 2.
 	self should: [ 1 / zero ] raise: ZeroDivide.
 
-	_1 := 1.
-	_2 := 2.
-	_3 := 3.
-	_4 := 4.
-	_m2 := -2.
-	_m4 := -4.
+	us1 := 1.
+	us2 := 2.
+	us3 := 3.
+	us4 := 4.
+	usm2 := -2.
+	usm4 := -4.
 
-	self assert: _2 / _1 = _2.
-	self assert: (_3 / _2) isFraction.
-	self assert: _4 / _2 = 2.
-	self assert: _4 / _m2 = -2.
-	self assert: _m4 / _2 = -2.
-	self assert: _m4 / _m2 = 2.
+	self assert: us2 / us1 = us2.
+	self assert: (us3 / us2) isFraction.
+	self assert: us4 / us2 = 2.
+	self assert: us4 / usm2 = -2.
+	self assert: usm4 / us2 = -2.
+	self assert: usm4 / usm2 = 2.
 !
 
 testMultiply