--- 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