--- 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