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