#QUALITY by exept
authorClaus Gittinger <cg@exept.de>
Sun, 01 Dec 2019 16:04:40 +0100
changeset 2449 2771c3f5d453
parent 2448 d6af1cf98136
child 2450 a284c0898eb8
#QUALITY by exept class: RegressionTests::FloatTest changed: #test08_Representation
RegressionTests__FloatTest.st
--- a/RegressionTests__FloatTest.st	Sun Dec 01 12:45:23 2019 +0100
+++ b/RegressionTests__FloatTest.st	Sun Dec 01 16:04:40 2019 +0100
@@ -900,6 +900,9 @@
     self assert:( ShortFloat unity = 1 asShortFloat ).
     self assert:( Float unity = 1 asFloat ).
 
+    self assert:( 1.0 asShortFloat exponentBits = 127 ).
+    self assert:( 1.0 exponentBits = 1023 ).
+
     self assert:( 0.0 exponent = 0 ).
     self assert:( 1.0 exponent = 1 ).
     self assert:( 2.0 exponent = 2 ).