RegressionTests__ScaledDecimalTest.st
changeset 2453 0c3a4a4d8f7f
parent 2232 874f4efe15a5
--- 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 ).