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