--- a/RegressionTests__FloatTest.st	Mon Aug 01 16:48:59 2011 +0200
+++ b/RegressionTests__FloatTest.st	Tue Aug 02 18:34:56 2011 +0200
@@ -10,6 +10,12 @@
 !
 
 
+!FloatTest class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header$'
+! !
+
 !FloatTest methodsFor:'helpers'!
 
 actualPrecisionOf:aFloatClass
@@ -739,9 +745,15 @@
     self assert:( 0.125 asLongFloat exponent = -2 ).
     self assert:( 0.00000011111 asLongFloat exponent = -23 ).
 
+    self assert:( LongFloat unity = 1 asLongFloat ).
+    self assert:( ShortFloat unity = 1 asShortFloat ).
+    self assert:( Float unity = 1 asFloat ).
+
     "
      self basicNew test08_Representation
     "
+
+    "Modified: / 02-08-2011 / 18:34:39 / cg"
 ! !
 
 !FloatTest class methodsFor:'documentation'!