#BUGFIX by sr
class: RegressionTests::ScaledDecimalTest
changed: #test15_LiteralInSTC
--- a/RegressionTests__ScaledDecimalTest.st Thu Sep 28 16:57:28 2017 +0200
+++ b/RegressionTests__ScaledDecimalTest.st Fri Sep 29 15:43:17 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -272,24 +274,20 @@
test15_LiteralInSTC
|value|
- self
- skipIf:Smalltalk isStandAloneApp
- description:'Usually there are no compiler settings in standalone environments'.
-
Class withoutUpdatingChangesDo:[
- self class
- compile:
+ self class
+ compile:
'literal_helper2
^ 1.40s2.
'
- classified:'temporary'.
+ classified:'temporary'.
- Compiler stcCompileMethod:(self class compiledMethodAt:#literal_helper2).
+ Compiler stcCompileMethod:(self class compiledMethodAt:#literal_helper2).
].
self
- shouldnt:[ self literal_helper2 ]
- raise:MessageNotUnderstood.
+ shouldnt:[ self literal_helper2 ]
+ raise:MessageNotUnderstood.
value := self literal_helper2.
self assert:( value isFixedPoint ).