--- a/RegressionTests__FloatTest.st Mon May 06 14:14:18 2019 +0200
+++ b/RegressionTests__FloatTest.st Mon May 06 14:14:40 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -451,14 +449,18 @@
check value:-30 value:1.
check value:-1 value:30.
+ "/ showing that float precision is limited...
+
"/ test fails when stc code, jit code works
- (Helper
+ false "(Helper
isStcCompiledMethod:#'test05_Comparing'
- in:self) ifTrue:[
+ in:self)" ifTrue:[
"/ stc-compiled code handles not slightly differently
"/ listed compares will fail
'FloatTest >> test05_Comparing: test with 200000000000000000000 or similiar are skipped due would fail when stc code' infoPrintCR.
] ifFalse:[
+ self assert:( 200000000000000000000.0 = 200000000000000000001.0 ).
+
self assert:( 200000000000000000000.0 = 200000000000000000001 ).
self assert:( 200000000000000000000.0 = 200000000000000000000 ).
self assert:( 200000000000000000000.0 asLongFloat = 200000000000000000000 ).
@@ -497,6 +499,8 @@
"
self basicNew test05_Comparing
"
+
+ "Modified: / 06-05-2019 / 14:11:42 / Claus Gittinger"
!
test06_MiscMath