Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#FEATURE by exept
authorClaus Gittinger <cg@exept.de>
Fri, 22 Nov 2019 04:43:49 +0100
changeset 2416 0c9cb936ffe1
parent 2415 bca220d828bc
child 2417 6821e4990968
#FEATURE by exept class: RegressionTests::QuadFloatTest changed: #test00_Bits
RegressionTests__QuadFloatTest.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__QuadFloatTest.st	Fri Nov 22 04:41:42 2019 +0100
+++ b/RegressionTests__QuadFloatTest.st	Fri Nov 22 04:43:49 2019 +0100
@@ -113,6 +113,16 @@
     self assert:(bytes = #(0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 
                            0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00)).
 
+    q := 1 asQuadFloat.
+    bytes := 1 to:q byteSize collect:[:i | q byteAt:i].
+    self assert:(bytes = #(0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 
+                           0x00 0x00 0x00 0x00 0x00 0x00 0xFF 0x3F)).
+
+"/    q := 2.0 asQuadFloat raisedTo:-16382.
+"/    bytes := 1 to:q byteSize collect:[:i | q byteAt:i].
+"/    self assert:(bytes = #(0x01 0x00 0x00 0x00 0x00 0x00 0x00 0x00 
+"/                           0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00)).
+
     "
      self basicNew test00_Bits
     "
hg/stx-goodies-regression