--- a/RegressionTests__IEEEFloatTest.st	Tue Dec 03 18:50:31 2019 +0100
+++ b/RegressionTests__IEEEFloatTest.st	Tue Dec 03 22:56:44 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -352,6 +350,8 @@
     check value:-1.0 asIEEEFloat value:30.
 
     
+    self assert:( 2000000.0 asIEEEFloat = 2000000.0 ).
+    self assert:( (IEEEFloat fromInteger:2000000) = 2000000.0 asIEEEFloat ).
     self assert:( 2000000.0 asIEEEFloat = 2000000 ).
     self assert:( 2000000 = 2000000.0 asIEEEFloat ).
 
@@ -542,12 +542,28 @@
     |check|
 
     check := [:num |
-        self assert:( num fractionPart + num truncated ) = num.
-        self assert:( num fractionPart + num truncated ) class == num class.
+        |nIEEE|
+
+        nIEEE := num asIEEEFloat.
+        self assert:( nIEEE fractionPart ) = num fractionPart asIEEEFloat.
+        nIEEE truncatedAsFloat.
+        self assert:( nIEEE truncatedAsFloat ) = num truncatedAsFloat asIEEEFloat.
+        self assert:( nIEEE truncated ) = num truncated.
+        self assert:( nIEEE fractionPart + nIEEE truncated ) = nIEEE.
+        self assert:( nIEEE fractionPart + nIEEE truncated ) class == nIEEE class.
+        self assert:( nIEEE fractionPart ) = num fractionPart.
+        self assert:( nIEEE truncated ) = num truncated.
     ].
 
-    check value:1.6 asIEEEFloat.
-    check value:-1.6 asIEEEFloat.
+    check value:0.0 .
+    check value:0.6 .
+    check value:-0.6 .
+    check value:1.6 .
+    check value:-1.6 .
+    check value:1e20 .
+    check value:-1e20 .
+    check value:1e-20 .
+    check value:-1e-20 .
 
     self assert:( 1.6 asIEEEFloat ceiling ) = 2.
     self assert:( 1.6 asIEEEFloat ceilingAsFloat ) = 2.0.