RegressionTests__SmallIntegerTest.st
changeset 1835 e23ee59eb10c
parent 1766 4ab276d5037d
child 1882 b4bb993596b6
--- a/RegressionTests__SmallIntegerTest.st	Thu Oct 12 17:23:52 2017 +0200
+++ b/RegressionTests__SmallIntegerTest.st	Fri Oct 13 13:31:03 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -147,32 +149,33 @@
 !
 
 testDivide
-	|zero us1 us2 us3 us4 usm2 usm4|
+        |zero us1 us2 us3 us4 usm2 usm4|
 
-	"circumvent compiler error about division by zero"
-	zero := 0.
+        "circumvent compiler error about division by zero"
+        zero := 0.
 
-	self assert: 2 / 1 = 2.
-	self assert: (3 / 2) isFraction.
-	self assert: 4 / 2 = 2.
-	self assert: 4 / -2 = -2.
-	self assert: -4 / 2 = -2.
-	self assert: -4 / -2 = 2.
-	self should: [ 1 / zero ] raise: ZeroDivide.
+Transcript showCR:(2 / 1) printString.
+        self assert: 2 / 1 = 2.
+        self assert: (3 / 2) isFraction.
+        self assert: 4 / 2 = 2.
+        self assert: 4 / -2 = -2.
+        self assert: -4 / 2 = -2.
+        self assert: -4 / -2 = 2.
+        self should: [ 1 / zero ] raise: ZeroDivide.
 
-	us1 := 1.
-	us2 := 2.
-	us3 := 3.
-	us4 := 4.
-	usm2 := -2.
-	usm4 := -4.
+        us1 := 1.
+        us2 := 2.
+        us3 := 3.
+        us4 := 4.
+        usm2 := -2.
+        usm4 := -4.
 
-	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.
+        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