--- 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 ).