--- a/RegressionTests__FloatTest.st Tue Aug 09 20:58:06 2011 +0200
+++ b/RegressionTests__FloatTest.st Tue Aug 09 21:02:13 2011 +0200
@@ -248,9 +248,11 @@
self assert: ((Fraction basicNew setNumerator:500000000001 denominator:900000000000)
asLongFloat - 0.555555555555) abs >= 0.000000000001.
- self assert: (8901234567890123456 asLongFloat asInteger = 8901234567890123456).
- self assert: (-8901234567890123456 asLongFloat asInteger = -8901234567890123456).
-
+ "/ under windows, a longFloat has only 10bytes with 64 bits precision
+ OperatingSystem isMSWINDOWSlike ifFalse:[
+ self assert: (8901234567890123456 asLongFloat asInteger = 8901234567890123456).
+ self assert: (-8901234567890123456 asLongFloat asInteger = -8901234567890123456).
+ ].
self assert: (89012345678901234567 asLongFloat = 89012345678901234567).
self assert: (-89012345678901234567 asLongFloat = -89012345678901234567).
self assert: (89012345678901234567 negated asLongFloat = -89012345678901234567).
@@ -261,6 +263,8 @@
"
self basicNew test03_Conversion
"
+
+ "Modified: / 09-08-2011 / 21:01:57 / cg"
!
test04_Arithmetic