RegressionTests__QDoubleTests.st
changeset 2269 3ec7c31b9673
parent 2195 864930fc306d
child 2270 960a8b13323c
--- a/RegressionTests__QDoubleTests.st	Wed Jun 05 20:17:50 2019 +0200
+++ b/RegressionTests__QDoubleTests.st	Wed Jun 05 20:18:10 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -57,8 +55,6 @@
 test_01_instance_creation
     |q|
 
-    self skip:'unfinished work in progress'.
-
     q := QDouble fromFloat:1.0.
     self assert:(q d0 = 1.0).
     self assert:(q d1 = 0.0).
@@ -102,13 +98,13 @@
 
     "Created: / 12-06-2017 / 17:03:46 / cg"
     "Modified: / 20-06-2017 / 07:48:51 / cg"
-    "Modified: / 28-03-2019 / 12:21:06 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 20:15:30 / Claus Gittinger"
 !
 
 test_02_addition
     |d1 d2 l1 l2 sum_l q1 q2 sum_d sum_q|
 
-    self skip:'unfinished work in progress'.
+    "/ self skip:'unfinished work in progress'.
 
     d1 := 1.0.
     d2 := 1.0e-16.
@@ -165,13 +161,13 @@
 
     "Created: / 12-06-2017 / 17:05:07 / cg"
     "Modified: / 20-06-2017 / 07:49:32 / cg"
-    "Modified: / 28-03-2019 / 12:21:09 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 20:15:38 / Claus Gittinger"
 !
 
 test_03_subtract
     |d1 d2 l1 l2 diff_l q1 q2 diff_d diff_q|
 
-    self skip:'unfinished work in progress'.
+    "/ self skip:'unfinished work in progress'.
 
     d1 := 1.0.
     d2 := 0.99999.
@@ -194,11 +190,11 @@
     "
 
     "Created: / 12-06-2017 / 23:12:00 / cg"
-    "Modified: / 28-03-2019 / 12:21:13 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 20:16:12 / Claus Gittinger"
 !
 
 test_04_relops
-    self skip:'unfinished work in progress'.
+    "/ self skip:'unfinished work in progress'.
 
     self assert:(1.0 = 1.0 asQDouble).
     self assert:(1.0 asQDouble = 1.0).
@@ -352,13 +348,13 @@
 
     "Created: / 13-06-2017 / 17:11:37 / cg"
     "Modified (comment): / 20-06-2017 / 09:18:50 / cg"
-    "Modified: / 28-03-2019 / 12:21:16 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 20:16:21 / Claus Gittinger"
 !
 
 test_05_multiply
     |q1 q2 p|
 
-    self skip:'unfinished work in progress'.
+    "/ self skip:'unfinished work in progress'.
 
     q1 := QDouble fromFloat:3.0. "/ DoubleArray(2.0 0.0 0.0 0.0)
     p := 2.0 * q1.
@@ -425,13 +421,13 @@
 
     "Created: / 19-06-2017 / 16:58:29 / cg"
     "Modified (comment): / 20-06-2017 / 07:42:52 / cg"
-    "Modified: / 28-03-2019 / 12:21:20 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 20:16:30 / Claus Gittinger"
 !
 
 test_06_exp
     |f1 q1|
 
-    self skip:'unfinished work in progress'.
+    "/ self skip:'unfinished work in progress'.
 
     f1 := 2.0 exp.
     q1 := 2.0 asQDouble exp.
@@ -455,7 +451,7 @@
 
     "Created: / 19-06-2017 / 17:58:08 / cg"
     "Modified (comment): / 21-06-2017 / 13:45:56 / cg"
-    "Modified: / 28-03-2019 / 12:21:23 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 20:16:35 / Claus Gittinger"
 !
 
 test_06b_log10