#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Wed, 21 Jun 2017 20:49:45 +0200
changeset 1623 047593c3208f
parent 1622 ced5fda31c2e
child 1624 8bb859233893
#DOCUMENTATION by cg class: RegressionTests::QDoubleTests class definition added: #test99_misc #test_01_instance_creation #test_02_addition #test_03_subtract #test_04_relops #test_05_multiply #test_06_exp #test_07_reading #test_08_conversion class: RegressionTests::QDoubleTests class added: #documentation #version #version_CVS
RegressionTests__QDoubleTests.st
--- a/RegressionTests__QDoubleTests.st	Tue Jun 20 14:05:56 2017 +0200
+++ b/RegressionTests__QDoubleTests.st	Wed Jun 21 20:49:45 2017 +0200
@@ -411,9 +411,19 @@
 test_06_exp
     |f1 q1|
 
-    f1 := 1.0 exp.
-    q1 := 1.0 asQDouble exp.
+    f1 := 2.0 exp.
+    q1 := 2.0 asQDouble exp.
 
+    "/ the first 113 digits are:
+    "/                                            7.3890560989306502272304274605750078131803155705518473240871278225225737960790577633843124850791217947737531612654...
+    "/ 2.0 exp             
+    "/ '%30.28f' printf:{ 2.0 exp }           -> '7.38905609893065040694182243896'
+    "/ '%30.28f' printf:{ 2.0 exp asQDouble } -> '7.38905609893065040694182243897'
+    "/ '%30.28f' printf:{ 2.0 asQDouble exp } -> '7.38905609893065022723042746058'
+    "/ '%40.38f' printf:{ 2.0 asQDouble exp } -> '7.389056098930650227230427460575007822092' (10 iters in exp)
+    "/ '%40.38f' printf:{ 2.0 asQDouble exp }    
+    "/ 2.0 asQDouble exp   -> 7.3890560989306502272304274605750078* 220914983921672'
+    "/ 1.0 asQDouble exp       
     self assert:(q1 d0 = f1).
 
     "
@@ -422,6 +432,7 @@
     "
 
     "Created: / 19-06-2017 / 17:58:08 / cg"
+    "Modified (comment): / 21-06-2017 / 13:45:56 / cg"
 !
 
 test_07_reading