Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 17 Jun 2003 15:29:34 +0200
changeset 200 081859450ba4
parent 199 0a895cfee047
child 201 a906a3b5feff
*** empty log message ***
RegressionTests__FloatTest.st file | annotate | diff | comparison | revisions 
--- 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
     "
hg/stx-goodies-regression