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.
#QUALITY by exept
authorClaus Gittinger <cg@exept.de>
Sun, 24 Nov 2019 11:31:04 +0100
changeset 2419 7efaf9133e12
parent 2418 187b80d0dd61
child 2420 47c934c95a58
#QUALITY by exept class: RegressionTests::QDoubleTests changed: #test_02_addition
RegressionTests__QDoubleTests.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__QDoubleTests.st	Sun Nov 24 09:16:26 2019 +0100
+++ b/RegressionTests__QDoubleTests.st	Sun Nov 24 11:31:04 2019 +0100
@@ -142,8 +142,17 @@
     q2 := QDouble fromFloat:1.0e-16.
     sum_q := q1 + q2.
     
-    "/ no precision is lost
+    "/ no precision is lost with qDoubles
     self assert:( (sum_q - (QDouble fromFloat:1.0)) > 0.0 ).
+    self assert:( (sum_q - (QDouble fromFloat:1.0)) = 1.0e-16 ).
+
+    q1 := QDouble fromFloat:1.0.
+    q2 := QDouble fromFloat:1.0e-30.
+    sum_q := q1 + q2.
+
+    "/ no precision is lost with qDoubles
+    self assert:( (sum_q - (QDouble fromFloat:1.0)) > 0.0 ).
+    self assert:( (sum_q - (QDouble fromFloat:1.0)) = 1.0e-30 ).
 
     q1 := QDouble fromFloat:1.0.
     q2 := QDouble fromFloat:2.0.
hg/stx-goodies-regression