Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 17 Feb 2006 16:25:47 +0100
changeset 317 637f102c2b9c
parent 316 d2d718967147
child 318 3f9278118c94
*** empty log message ***
RegressionTests__ScaledDecimalTest.st file | annotate | diff | comparison | revisions 
--- 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.
hg/stx-goodies-regression