equal
deleted
inserted
replaced
327 ! ! |
327 ! ! |
328 |
328 |
329 !NumberTest methodsFor:'tests-reading'! |
329 !NumberTest methodsFor:'tests-reading'! |
330 |
330 |
331 testReadFrom |
331 testReadFrom |
332 |compiledMethod| |
|
333 |
|
334 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
332 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
335 |
333 |
336 self assert: ('1' asNumber = 1). |
334 self assert: ('1' asNumber = 1). |
337 self assert: ('10' asNumber = 10). |
335 self assert: ('10' asNumber = 10). |
338 |
336 |
366 |
364 |
367 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2). |
365 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2). |
368 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2). |
366 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2). |
369 |
367 |
370 "/ test fails when stc code, byte code works |
368 "/ test fails when stc code, byte code works |
371 compiledMethod := self class compiledMethodAt:#'test05_Comparing'. |
369 (Helper |
372 (compiledMethod notNil |
370 isStcCompiledMethod:#'testReadFrom' |
373 and:[compiledMethod byteCode isNil]) ifTrue:[ |
371 in:self) ifTrue:[ |
374 self logSkipped:'2r1e26 is not valid in stc code -> debugger doesNotUnderstand: #e26'. |
372 self logSkipped:'2r1e26 is not valid in stc code -> debugger doesNotUnderstand: #e26'. |
375 ] ifFalse:[ |
373 ] ifFalse:[ |
376 self assert: 2r1e26 = (Number readSmalltalkSyntaxFrom: '2r1e26'). |
374 self assert: 2r1e26 = (Number readSmalltalkSyntaxFrom: '2r1e26'). |
377 ]. |
375 ]. |
378 |
376 |
379 self assert: ('-1q' asNumber = -1). |
377 self assert: ('-1q' asNumber = -1). |
380 self assert: ('-1q' asNumber class == LongFloat). |
378 self assert: ('-1q' asNumber class == LongFloat). |
381 |
379 |
382 self assert: ('-1q1' asNumber = -10). |
380 self assert: ('-1q1' asNumber = -10). |