--- a/RegressionTests__FloatTest.st Tue Jun 17 15:19:26 2003 +0200
+++ b/RegressionTests__FloatTest.st Tue Jun 17 15:29:34 2003 +0200
@@ -311,6 +311,82 @@
self assert:( 2 asLongFloat = 2.0 asShortFloat ).
self assert:( 2 asLongFloat = 2.0 asLongFloat ).
+ self assert:( 200000000000000000000.0 = 200000000000000000000 ).
+ self assert:( 200000000000000000000.0 asLongFloat = 200000000000000000000 ).
+ self assert:( 200000000000000000000.0 asShortFloat = 200000000000000000000 ).
+
+ self assert:( 200000000000000000000 = 200000000000000000000.0).
+ self assert:( 200000000000000000000 = 200000000000000000000.0 asLongFloat ).
+ self assert:( 200000000000000000000 = 200000000000000000000.0 asShortFloat ).
+
+
+ self assert:( 2.0 < 3 ).
+ self assert:( 2.0 < 3.0 asShortFloat ).
+ self assert:( 2.0 < 3.0 asLongFloat ).
+
+ self assert:( 2.0 asShortFloat < 3 ).
+ self assert:( 2.0 asShortFloat < 3.0 asShortFloat ).
+ self assert:( 2.0 asShortFloat < 3.0 asLongFloat ).
+
+ self assert:( 2.0 asLongFloat < 3 ).
+ self assert:( 2.0 asLongFloat < 3.0 asShortFloat ).
+ self assert:( 2.0 asLongFloat < 3.0 asLongFloat ).
+
+ self assert:( 2 asLongFloat < 3 ).
+ self assert:( 2 asLongFloat < 3.0 asShortFloat ).
+ self assert:( 2 asLongFloat < 3.0 asLongFloat ).
+
+ self assert:( 200000000000000000000.0 < 200000100000000000000 ).
+ self assert:( 200000000000000000000.0 asLongFloat < 200000000000000000001 ).
+ self assert:( 200000000000000000000.0 asShortFloat < 200001000000000000000 ).
+
+ self assert:( 200000000000000000000 < 200001000000000000000.0).
+ self assert:( 200000000000000000000 < 200001000000000000000.0 asLongFloat ).
+ self assert:( 200000000000000000000 < 200001000000000000000.0 asShortFloat ).
+
+
+ self assert:( 2.0 <= 3 ).
+ self assert:( 2.0 <= 2 ).
+ self assert:( 2.0 <= 3.0 asShortFloat ).
+ self assert:( 2.0 <= 2.0 asShortFloat ).
+ self assert:( 2.0 <= 3.0 asLongFloat ).
+ self assert:( 2.0 <= 2.0 asLongFloat ).
+
+ self assert:( 2.0 asShortFloat <= 3 ).
+ self assert:( 2.0 asShortFloat <= 2 ).
+ self assert:( 2.0 asShortFloat <= 3.0 asShortFloat ).
+ self assert:( 2.0 asShortFloat <= 2.0 asShortFloat ).
+ self assert:( 2.0 asShortFloat <= 3.0 asLongFloat ).
+ self assert:( 2.0 asShortFloat <= 2.0 asLongFloat ).
+
+ self assert:( 2.0 asLongFloat <= 3 ).
+ self assert:( 2.0 asLongFloat <= 2 ).
+ self assert:( 2.0 asLongFloat <= 3.0 asShortFloat ).
+ self assert:( 2.0 asLongFloat <= 2.0 asShortFloat ).
+ self assert:( 2.0 asLongFloat <= 3.0 asLongFloat ).
+ self assert:( 2.0 asLongFloat <= 2.0 asLongFloat ).
+
+ self assert:( 2 asLongFloat <= 3 ).
+ self assert:( 2 asLongFloat <= 2 ).
+ self assert:( 2 asLongFloat <= 3.0 asShortFloat ).
+ self assert:( 2 asLongFloat <= 2.0 asShortFloat ).
+ self assert:( 2 asLongFloat <= 3.0 asLongFloat ).
+ self assert:( 2 asLongFloat <= 2.0 asLongFloat ).
+
+ self assert:( 200000000000000000000.0 <= 200000100000000000000 ).
+ self assert:( 200000000000000000000.0 <= 200000000000000000000 ).
+ self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000001 ).
+ self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000000 ).
+ self assert:( 200000000000000000000.0 asShortFloat <= 200001000000000000000 ).
+ self assert:( 200000000000000000000.0 asShortFloat <= 200000000000000000000 ).
+
+ self assert:( 200000000000000000000 <= 200001000000000000000.0).
+ self assert:( 200000000000000000000 <= 200000000000000000000.0).
+ self assert:( 200000000000000000000 <= 200001000000000000000.0 asLongFloat ).
+ self assert:( 200000000000000000000 <= 200000000000000000000.0 asLongFloat ).
+ self assert:( 200000000000000000000 <= 200001000000000000000.0 asShortFloat ).
+ self assert:( 200000000000000000000 <= 200000000000000000000.0 asShortFloat ).
+
"
self basicNew test05_Comparing
"