equal
deleted
inserted
replaced
272 ! |
272 ! |
273 |
273 |
274 test15_LiteralInSTC |
274 test15_LiteralInSTC |
275 |value| |
275 |value| |
276 |
276 |
|
277 self |
|
278 skipIf:ExternalAddress pointerSize = 8 |
|
279 description:'Compile does not work under 64bit'. |
|
280 |
277 (Helper |
281 (Helper |
278 isStcCompiledMethod:#test15_LiteralInSTC |
282 isStcCompiledMethod:#test15_LiteralInSTC |
279 in:self) ifTrue:[ |
283 in:self) ifTrue:[ |
280 self |
284 self |
281 skipIf:true |
285 skipIf:true |
301 self assert:( value isFixedPoint ). |
305 self assert:( value isFixedPoint ). |
302 self assert:( (value * 10) = 14 ). |
306 self assert:( (value * 10) = 14 ). |
303 self assert:( value asFloat = 1.4 ). |
307 self assert:( value asFloat = 1.4 ). |
304 |
308 |
305 "Created: / 09-08-2011 / 21:27:07 / cg" |
309 "Created: / 09-08-2011 / 21:27:07 / cg" |
|
310 "Modified: / 21-05-2019 / 16:21:19 / Stefan Reise" |
306 ! |
311 ! |
307 |
312 |
308 test16_PrintString |
313 test16_PrintString |
309 "The printed representation of a ScaledDecimal is truncated, not rounded. |
314 "The printed representation of a ScaledDecimal is truncated, not rounded. |
310 Not sure if this is right, so this test describes the current Squeak implementation. |
315 Not sure if this is right, so this test describes the current Squeak implementation. |