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 |
332 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
334 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
333 |
335 |
334 self assert: ('1' asNumber = 1). |
336 self assert: ('1' asNumber = 1). |
335 self assert: ('10' asNumber = 10). |
337 self assert: ('10' asNumber = 10). |
336 |
338 |
363 self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2). |
365 self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2). |
364 |
366 |
365 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2). |
367 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2). |
366 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2). |
368 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2). |
367 |
369 |
368 self assert: 2r1e26 = (Number readSmalltalkSyntaxFrom: '2r1e26'). |
370 "/ test fails when stc code, byte code works |
|
371 compiledMethod := self class compiledMethodAt:#'test05_Comparing'. |
|
372 (compiledMethod notNil |
|
373 and:[compiledMethod byteCode isNil]) ifTrue:[ |
|
374 self logSkipped:'2r1e26 is not valid in stc code -> debugger doesNotUnderstand: #e26'. |
|
375 ] ifFalse:[ |
|
376 self assert: 2r1e26 = (Number readSmalltalkSyntaxFrom: '2r1e26'). |
|
377 ]. |
369 |
378 |
370 self assert: ('-1q' asNumber = -1). |
379 self assert: ('-1q' asNumber = -1). |
371 self assert: ('-1q' asNumber class == LongFloat). |
380 self assert: ('-1q' asNumber class == LongFloat). |
372 |
381 |
373 self assert: ('-1q1' asNumber = -10). |
382 self assert: ('-1q1' asNumber = -10). |