--- a/RegressionTests__FloatTest.st Tue Jun 17 11:02:56 2003 +0200
+++ b/RegressionTests__FloatTest.st Tue Jun 17 11:36:28 2003 +0200
@@ -297,12 +297,19 @@
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.
@@ -460,6 +467,45 @@
"
self basicNew test07_Truncation
"
+!
+
+test08_Representation
+ self assert:( 0.0 exponent = 0 ).
+ self assert:( 1.0 exponent = 1 ).
+ self assert:( 2.0 exponent = 2 ).
+ self assert:( 3.0 exponent = 2 ).
+ self assert:( 4.0 exponent = 3 ).
+ self assert:( 0.5 exponent = 0 ).
+ self assert:( 0.4 exponent = -1 ).
+ self assert:( 0.25 exponent = -1 ).
+ self assert:( 0.125 exponent = -2 ).
+ self assert:( 0.00000011111 exponent = -23 ).
+
+ self assert:( 0.0 asShortFloat exponent = 0 ).
+ self assert:( 1.0 asShortFloat exponent = 1 ).
+ self assert:( 2.0 asShortFloat exponent = 2 ).
+ self assert:( 3.0 asShortFloat exponent = 2 ).
+ self assert:( 4.0 asShortFloat exponent = 3 ).
+ self assert:( 0.5 asShortFloat exponent = 0 ).
+ self assert:( 0.4 asShortFloat exponent = -1 ).
+ self assert:( 0.25 asShortFloat exponent = -1 ).
+ self assert:( 0.125 asShortFloat exponent = -2 ).
+ self assert:( 0.00000011111 asShortFloat exponent = -23 ).
+
+ self assert:( 0.0 asLongFloat exponent = 0 ).
+ self assert:( 1.0 asLongFloat exponent = 1 ).
+ self assert:( 2.0 asLongFloat exponent = 2 ).
+ self assert:( 3.0 asLongFloat exponent = 2 ).
+ self assert:( 4.0 asLongFloat exponent = 3 ).
+ self assert:( 0.5 asLongFloat exponent = 0 ).
+ self assert:( 0.4 asLongFloat exponent = -1 ).
+ self assert:( 0.25 asLongFloat exponent = -1 ).
+ self assert:( 0.125 asLongFloat exponent = -2 ).
+ self assert:( 0.00000011111 asLongFloat exponent = -23 ).
+
+ "
+ self basicNew test08_Representation
+ "
! !
!FloatTest class methodsFor:'documentation'!