--- 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