diff -r 88407e46d054 -r 0c3a4a4d8f7f RegressionTests__ScaledDecimalTest.st --- a/RegressionTests__ScaledDecimalTest.st Mon Dec 02 09:57:57 2019 +0100 +++ b/RegressionTests__ScaledDecimalTest.st Mon Dec 02 10:01:51 2019 +0100 @@ -272,11 +272,13 @@ ! test15_LiteralInSTC + "verify the stc-compiled code also understands scaled decimal literals" + |value| - self - skipIf:ExternalAddress pointerSize = 8 - description:'Compile does not work under 64bit'. + "/ self + "/ skipIf:ExternalAddress pointerSize = 8 + "/ description:'Compile does not work under 64bit'. (Helper isStcCompiledMethod:#test15_LiteralInSTC @@ -303,6 +305,7 @@ value := self literal_helper2. self assert:( value isFixedPoint ). + self assert:( value scale == 2 ). self assert:( (value * 10) = 14 ). self assert:( value asFloat = 1.4 ).