--- a/RegressionTests__FloatTest.st Tue Jun 17 10:19:21 2003 +0200
+++ b/RegressionTests__FloatTest.st Tue Jun 17 10:47:47 2003 +0200
@@ -307,6 +307,7 @@
self assert:( 0.5 perform:op ) class == Float.
self assert:( 0.5 asShortFloat perform:op ) class == Float.
self assert:( 0.5 asLongFloat perform:op ) class == LongFloat.
+
self assert:( (0.5 perform:op) - (0.5 asShortFloat perform:op) ) < 0.000001.
self assert:( (0.5 perform:op) - (0.5 asLongFloat perform:op) ) < 0.000001.
self assert:( (0.5 perform:op) - (0.5 perform:op) asShortFloat ) < 0.000001.