--- a/RegressionTests__ScaledDecimalTest.st Tue Aug 09 10:53:00 2011 +0200
+++ b/RegressionTests__ScaledDecimalTest.st Tue Aug 09 20:58:06 2011 +0200
@@ -10,6 +10,12 @@
!
+!ScaledDecimalTest class methodsFor:'others'!
+
+version_CVS
+ ^ '$Header$'
+! !
+
!ScaledDecimalTest methodsFor:'tests'!
testAsNumber
@@ -74,11 +80,16 @@
!
testAsNumberWithRadix
-
- | sd |
+ | sd oldSetting |
Smalltalk isSmalltalkX ifTrue:[
- sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
+ oldSetting := ParserFlags allowFixedPointLiterals.
+ ParserFlags allowFixedPointLiterals:true.
+ [
+ sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
+ ] ensure:[
+ ParserFlags allowFixedPointLiterals:oldSetting.
+ ]
] ifFalse:[
sd := '10r-22.2s5' asNumber.
].
@@ -92,6 +103,8 @@
] ifFalse:[
self assert: '-22.20000s5' = sd printString.
]
+
+ "Modified: / 09-08-2011 / 20:57:54 / cg"
!
testAsNumberWithSuperfluousDecimalPoint