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 11:02:56 +0200
changeset 196 3c28a4e5daa5
parent 195 c1b18c70ebc1
child 197 ca25ba718565
*** empty log message ***
RegressionTests__FractionTest.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__FractionTest.st	Tue Jun 17 10:47:47 2003 +0200
+++ b/RegressionTests__FractionTest.st	Tue Jun 17 11:02:56 2003 +0200
@@ -18,10 +18,14 @@
     self assert:(((1/2) + (0.5 asFixedPoint:2)) = 1).
     self assert:(((1/2) + (0.5 asDouble)) = 1).
     self assert:(((1/2) + (0.5 asFloat)) = 1).
+    self assert:(((1/2) + (0.5 asLongFloat)) = 1).
+    self assert:(((1/2) + (0.5 asShortFloat)) = 1).
 
     self assert:(((1/2) + ((1/2) asFixedPoint:2)) = 1).
     self assert:(((1/2) + ((1/2) asDouble)) = 1).
     self assert:(((1/2) + ((1/2) asFloat)) = 1).
+    self assert:(((1/2) + ((1/2) asLongFloat)) = 1).
+    self assert:(((1/2) + ((1/2) asShortFloat)) = 1).
 
 
     self assert:(((1/2) + (1/2)) = 1.0).
@@ -29,10 +33,14 @@
     self assert:(((1/2) + (0.5 asFixedPoint:2)) = 1.0).
     self assert:(((1/2) + (0.5 asDouble)) = 1.0).
     self assert:(((1/2) + (0.5 asFloat)) = 1.0).
+    self assert:(((1/2) + (0.5 asLongFloat)) = 1.0).
+    self assert:(((1/2) + (0.5 asShortFloat)) = 1.0).
 
     self assert:(((1/2) + ((1/2) asFixedPoint:2)) = 1.0).
     self assert:(((1/2) + ((1/2) asDouble)) = 1.0).
     self assert:(((1/2) + ((1/2) asFloat)) = 1.0).
+    self assert:(((1/2) + ((1/2) asLongFloat)) = 1.0).
+    self assert:(((1/2) + ((1/2) asShortFloat)) = 1.0).
 
     self assert:((0.5 + (1/2)) = 1).
     self assert:(((0.5 asFixedPoint:2) + (1/2)) = 1).
@@ -55,10 +63,14 @@
     self assert:((fix1 + (0.5 asFixedPoint:2)) = 1).
     self assert:((fix1 + (0.5 asDouble)) = 1).
     self assert:((fix1 + (0.5 asFloat)) = 1).
+    self assert:((fix1 + (0.5 asLongFloat)) = 1).
+    self assert:((fix1 + (0.5 asShortFloat)) = 1).
 
     self assert:((fix1 + ((1/2) asFixedPoint:2)) = 1).
     self assert:((fix1 + ((1/2) asDouble)) = 1).
     self assert:((fix1 + ((1/2) asFloat)) = 1).
+    self assert:((fix1 + ((1/2) asLongFloat)) = 1).
+    self assert:((fix1 + ((1/2) asShortFloat)) = 1).
 
 
     self assert:((fix1 + (1/2)) = 1.0).
@@ -66,10 +78,14 @@
     self assert:((fix1 + (0.5 asFixedPoint:2)) = 1.0).
     self assert:((fix1 + (0.5 asDouble)) = 1.0).
     self assert:((fix1 + (0.5 asFloat)) = 1.0).
+    self assert:((fix1 + (0.5 asLongFloat)) = 1.0).
+    self assert:((fix1 + (0.5 asShortFloat)) = 1.0).
 
     self assert:((fix1 + ((1/2) asFixedPoint:2)) = 1.0).
     self assert:((fix1 + ((1/2) asDouble)) = 1.0).
     self assert:((fix1 + ((1/2) asFloat)) = 1.0).
+    self assert:((fix1 + ((1/2) asLongFloat)) = 1.0).
+    self assert:((fix1 + ((1/2) asShortFloat)) = 1.0).
 
     self assert:((0.5 + (fix1)) = 1).
     self assert:(((0.5 asFixedPoint:2) + fix1) = 1).
hg/stx-goodies-regression