RegressionTests__QDoubleTests.st
changeset 1607 00dc6d97bc10
parent 1606 148c8253d741
child 1608 be5ee2de7d8b
--- a/RegressionTests__QDoubleTests.st	Tue Jun 13 09:04:15 2017 +0200
+++ b/RegressionTests__QDoubleTests.st	Tue Jun 13 16:50:39 2017 +0200
@@ -58,18 +58,26 @@
     "/ no precision is lost with long doubles!!
     self assert:( (sum_l - (1.0 asLongFloat)) > 0.0 ).
 
+    l1 := 1.0 asLongFloat.
+    l2 := 1.0e-30 asLongFloat.
+    sum_l := l1 + l2.
+    "/ precision is lost!!
+    self assert:( (sum_l - (1.0 asLongFloat)) = 0.0 ).
+
     q1 := QDouble fromFloat:1.0.
     q2 := QDouble fromFloat:1.0e-16.
-
     sum_q := q1 + q2.
     
+    "/ no precision is lost
+    self assert:( (sum_q - (QDouble fromFloat:1.0)) > 0.0 ).
+    
     "
      self run:#test_02_addition
      self new test_02_addition
     "
 
     "Created: / 12-06-2017 / 17:05:07 / cg"
-    "Modified: / 12-06-2017 / 18:41:25 / cg"
+    "Modified: / 13-06-2017 / 16:47:05 / cg"
 !
 
 test_03_subtract