--- a/RegressionTests__FloatTest.st	Thu Mar 10 15:57:20 2016 +0100
+++ b/RegressionTests__FloatTest.st	Thu Mar 10 21:51:18 2016 +0100
@@ -44,6 +44,22 @@
 
     |a b|
 
+    self assert: (Float unity class == Float).
+    self assert: (ShortFloat unity class == ShortFloat).
+    self assert: (LongFloat unity class == LongFloat).
+
+    self assert: (Float unity = 1.0).
+    self assert: (ShortFloat unity = 1.0).
+    self assert: (LongFloat unity = 1.0).
+
+    self assert: (Float zero class == Float).
+    self assert: (ShortFloat zero class == ShortFloat).
+    self assert: (LongFloat zero class == LongFloat).
+
+    self assert: (Float zero = 0.0).
+    self assert: (ShortFloat zero = 0.0).
+    self assert: (LongFloat zero = 0.0).
+
     self assert:( (a := Float precision) = (b := self actualPrecisionOf:Float)).
     self assert:( (a := ShortFloat precision) = (b := self actualPrecisionOf:ShortFloat)).
     self assert:( (a := LongFloat precision) = (b := self actualPrecisionOf:LongFloat)).