--- a/RegressionTests__IEEEFloatTest.st Sat Dec 07 22:38:07 2019 +0100
+++ b/RegressionTests__IEEEFloatTest.st Sun Dec 08 04:10:47 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -263,19 +265,28 @@
self assert:( 1.0 asIEEEFloat + 1.0 asIEEEFloat) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat + 1.0 asShortFloat) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat + 1.0 asLongFloat) class == IEEEFloat.
- "/ self assert:( 1.0 asIEEEFloat + 1) class == IEEEFloat.
+ self assert:( 1.0 asIEEEFloat + 1) class == IEEEFloat.
+ self assert:( -1.6 asIEEEFloat + 1) class == IEEEFloat.
+ self assert:( -1.6 asIEEEFloat + -1) class == IEEEFloat.
+ self assert:( 1 + 1.0 asIEEEFloat) class == IEEEFloat.
+ self assert:( 1.0 + 1.0 asIEEEFloat) class == IEEEFloat.
+ self assert:( 1.0 asShortFloat + 1.0 asIEEEFloat) class == IEEEFloat.
+ self assert:( 1.0 asLongFloat + 1.0 asIEEEFloat) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat - 1.0 ) isZero. "/ class == IEEEFloat.
self assert:( 1.0 asIEEEFloat - 1.0 asIEEEFloat) isZero. "/ class == IEEEFloat.
self assert:( 1.0 asIEEEFloat - 1.0 asShortFloat) isZero. "/ class == IEEEFloat.
self assert:( 1.0 asIEEEFloat - 1.0 asLongFloat) isZero. "/ class == IEEEFloat.
- "/ self assert:( 1.0 asIEEEFloat - 1) class == IEEEFloat.
+ self assert:( 2.0 asIEEEFloat - 1) class == IEEEFloat.
+ self assert:( -1.6 asIEEEFloat - 1) class == IEEEFloat.
+ self assert:( -1.6 asIEEEFloat - -1) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat * 1.0 ) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat * 1.0 asIEEEFloat) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat * 1.0 asShortFloat) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat * 1.0 asLongFloat) class == IEEEFloat.
- "/ self assert:( 1.0 asIEEEFloat * 1) class == IEEEFloat.
+ self assert:( 1.0 asIEEEFloat * 1) class == IEEEFloat.
+ self assert:( 1 * 1.0 asIEEEFloat) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat / 1.0 ) class == IEEEFloat.
self assert:( 1.0 asIEEEFloat / 1.0 asIEEEFloat) class == IEEEFloat.
@@ -600,7 +611,9 @@
nIEEE truncatedAsFloat.
self assert:( nIEEE truncatedAsFloat ) = num truncatedAsFloat asIEEEFloat.
self assert:( nIEEE truncated ) = num truncated.
+ self assert:( nIEEE fractionPart + nIEEE truncatedAsFloat ) = nIEEE.
self assert:( nIEEE fractionPart + nIEEE truncated ) = nIEEE.
+ self assert:( -0.6 + -1 ) = nIEEE.
self assert:( nIEEE fractionPart + nIEEE truncated ) class == nIEEE class.
self assert:( nIEEE fractionPart ) = num fractionPart.
self assert:( nIEEE truncated ) = num truncated.