# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1055851569 -7200
# Node ID 1416c2f26d023a3ee93f94d3ace21955c4ea1094
# Parent  ca25ba7185650fdbe5d38a7822d9ed8e2d4c8632
*** empty log message ***

diff -r ca25ba718565 -r 1416c2f26d02 RegressionTests__FloatTest.st
--- a/RegressionTests__FloatTest.st	Tue Jun 17 11:36:28 2003 +0200
+++ b/RegressionTests__FloatTest.st	Tue Jun 17 14:06:09 2003 +0200
@@ -294,32 +294,33 @@
 
 test06_MiscMath
     #(
-        sqrt
-        exp
-        ln
-        log10
-        sin
-        cos
-        tan
-        arcSin
-        arcCos
-        arcTan
-        sinh
-        cosh
-        tanh
-        arcSinh
-        arcCosh
-        arcTanh
-    ) do:[:op |
-        self assert:( 0.5 perform:op ) class == Float.
-        self assert:( 0.5 asShortFloat perform:op ) class == Float.
-        self assert:( 0.5 asLongFloat perform:op ) class == LongFloat.
+        sqrt       0.5
+        exp        0.5
+        ln         0.5
+        log10      0.5
+        sin        0.5
+        cos        0.5
+        tan        0.5
+        arcSin     0.5
+        arcCos     0.5
+        arcTan     0.5
 
-        self assert:( (0.5 perform:op) - (0.5 asShortFloat perform:op) ) < 0.000001.
-        self assert:( (0.5 perform:op) - (0.5 asLongFloat perform:op) ) < 0.000001.
-        self assert:( (0.5 perform:op) - (0.5 perform:op) asShortFloat ) < 0.000001.
-        self assert:( (0.5 perform:op) - (0.5 perform:op) asLongFloat ) < 0.000001.
-    ]
+        sinh       0.5 
+        cosh       0.5
+        tanh       0.5
+        arcSinh    0.5
+        arcCosh    1.5
+        arcTanh    0.5
+    ) pairWiseDo:[:op :arg |
+        self assert:( arg perform:op ) class == Float.
+        self assert:( arg asShortFloat perform:op ) class == Float.
+        self assert:( arg asLongFloat perform:op ) class == LongFloat.
+
+        self assert:( (arg perform:op) - (arg asShortFloat perform:op) ) < 0.000001.
+        self assert:( (arg perform:op) - (arg asLongFloat perform:op) ) < 0.000001.
+        self assert:( (arg perform:op) - (arg perform:op) asShortFloat ) < 0.000001.
+        self assert:( (arg perform:op) - (arg perform:op) asLongFloat ) < 0.000001.
+    ].
 
     "
      self basicNew test06_MiscMath