# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1457643078 -3600
# Node ID 8e03c5741d805d072b15075b34617ebaf4e042f9
# Parent  e965d238a8103c6ae9ec446c2c1a41ecfc8a067a
#FEATURE
class: RegressionTests::FloatTest
changed: #test00_Precision

diff -r e965d238a810 -r 8e03c5741d80 RegressionTests__FloatTest.st
--- 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)).