*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 24 Oct 2006 15:36:06 +0200
changeset 327 05cf0c282e59
parent 326 a7271c7b91fb
child 328 6abee6197420
*** empty log message ***
RegressionTests__NumberTest.st
--- a/RegressionTests__NumberTest.st	Wed Aug 09 20:03:56 2006 +0200
+++ b/RegressionTests__NumberTest.st	Tue Oct 24 15:36:06 2006 +0200
@@ -28,6 +28,13 @@
     b := something.
 ! !
 
+!NumberTest methodsFor:'temporary'!
+
+testEQ
+    a = b ifTrue:[^ false].
+    ^ true.
+! !
+
 !NumberTest methodsFor:'tests-concrete bugs'!
 
 test_eqNumberBug
@@ -98,6 +105,28 @@
     "
 ! !
 
+!NumberTest methodsFor:'tests-conversion-rounding'!
+
+test_conversion
+    "reported as Bug 388
+     Current implementation neither truncate nor round to nearest Floating point
+     value, it just accumulate round off errors."
+
+
+    self assert: 16r1FFFFFFFFFFFF0801 asDouble ~= 16r1FFFFFFFFFFFF0800 asDouble.
+    "this test is on 65 bits"
+
+    self assert: 16r1FFFFFFFFFFFF0802 asDouble ~= 16r1FFFFFFFFFFFF0800 asDouble.
+    "this test is on 64 bits"
+
+    self assert: 16r1FFFFFFFFFFF1F800 asDouble = 16r1FFFFFFFFFFF20000 asDouble.
+    "nearest even is upper"
+    self assert: 16r1FFFFFFFFFFFF0800 asDouble = 16r1FFFFFFFFFFFF0000 asDouble.
+    "nearest even is lower"
+
+    "Created: / 24-10-2006 / 15:31:20 / cg"
+! !
+
 !NumberTest methodsFor:'tests-reading'!
 
 testReadFrom