changeset 317 | 637f102c2b9c |
parent 313 | 347d94236f10 |
child 620 | 8e10909bce70 |
--- a/RegressionTests__ScaledDecimalTest.st Fri Feb 17 16:24:34 2006 +0100 +++ b/RegressionTests__ScaledDecimalTest.st Fri Feb 17 16:25:47 2006 +0100 @@ -76,7 +76,13 @@ testAsNumberWithRadix | sd | - sd := '10r-22.2s5' asNumber. + + Smalltalk isSmalltalkX ifTrue:[ + sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'. + ] ifFalse:[ + sd := '10r-22.2s5' asNumber. + ]. + self assert: (ScaledDecimal ? FixedPoint) == sd class. self assert: sd scale == 5.