RegressionTests__IEEEFloatTest.st
changeset 2471 2c682a04da16
parent 2468 0813f637871b
child 2472 e827d0836551
--- 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.