443 check value:-3 value:3. |
443 check value:-3 value:3. |
444 |
444 |
445 check value:-30 value:1. |
445 check value:-30 value:1. |
446 check value:-1 value:30. |
446 check value:-1 value:30. |
447 |
447 |
448 "/ test fails when byte code, jit code works |
448 "/ test fails when stc code, jit code works |
449 "/ self assert:( 200000000000000000000.0 = 200000000000000000001 ). |
449 (self class compiledMethodAt:#_testNot1:) byteCode isNil ifTrue:[ |
450 |
450 "/ stc-compiled code handles not slightly differently |
451 self assert:( 200000000000000000000.0 = 200000000000000000000 ). |
451 "/ listed compares will fail |
452 self assert:( 200000000000000000000.0 asLongFloat = 200000000000000000000 ). |
452 'CompilerTest >> testNot1: non-boolean cases skipped due to stc limitations' infoPrintCR. |
|
453 ] ifFalse:[ |
|
454 self assert:( 200000000000000000000.0 = 200000000000000000001 ). |
|
455 self assert:( 200000000000000000000.0 = 200000000000000000000 ). |
|
456 self assert:( 200000000000000000000.0 asLongFloat = 200000000000000000000 ). |
|
457 |
|
458 self assert:( 200000000000000000000 = 200000000000000000000.0). |
|
459 self assert:( 200000000000000000000 = 200000000000000000000.0 asLongFloat ). |
|
460 |
|
461 self assert:( 200000000000000000000.0 < 200000100000000000000 ). |
|
462 self assert:( 200000000000000000000.0 asLongFloat < 200000000000100000000 ). |
|
463 self assert:( 200000000000000000000.0 asShortFloat < 200001000000000000000 ). |
|
464 |
|
465 self assert:( 200000000000000000000 < 200001000000000000000.0). |
|
466 self assert:( 200000000000000000000 < 200001000000000000000.0 asLongFloat ). |
|
467 self assert:( 200000000000000000000 < 200001000000000000000.0 asShortFloat ). |
|
468 |
|
469 self assert:( 200000000000000000000.0 <= 200000100000000000000 ). |
|
470 self assert:( 200000000000000000000.0 <= 200000000000000000000 ). |
|
471 self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000001 ). |
|
472 self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000000 ). |
|
473 |
|
474 self assert:( 200000000000000000000 <= 200001000000000000000.0). |
|
475 self assert:( 200000000000000000000 <= 200000000000000000000.0). |
|
476 self assert:( 200000000000000000000 <= 200001000000000000000.0 asLongFloat ). |
|
477 self assert:( 200000000000000000000 <= 200000000000000000000.0 asLongFloat ). |
|
478 ]. |
|
479 |
453 self assert:( 2000000.0 asShortFloat = 2000000 ). |
480 self assert:( 2000000.0 asShortFloat = 2000000 ). |
454 |
|
455 self assert:( 200000000000000000000 = 200000000000000000000.0). |
|
456 self assert:( 200000000000000000000 = 200000000000000000000.0 asLongFloat ). |
|
457 self assert:( 2000000 = 2000000.0 asShortFloat ). |
481 self assert:( 2000000 = 2000000.0 asShortFloat ). |
458 |
482 |
459 |
|
460 self assert:( 200000000000000000000.0 < 200000100000000000000 ). |
|
461 self assert:( 200000000000000000000.0 asLongFloat < 200000000000100000000 ). |
|
462 self assert:( 200000000000000000000.0 asShortFloat < 200001000000000000000 ). |
|
463 |
|
464 self assert:( 200000000000000000000 < 200001000000000000000.0). |
|
465 self assert:( 200000000000000000000 < 200001000000000000000.0 asLongFloat ). |
|
466 self assert:( 200000000000000000000 < 200001000000000000000.0 asShortFloat ). |
|
467 |
|
468 |
|
469 self assert:( 200000000000000000000.0 <= 200000100000000000000 ). |
|
470 self assert:( 200000000000000000000.0 <= 200000000000000000000 ). |
|
471 self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000001 ). |
|
472 self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000000 ). |
|
473 self assert:( 2000000.0 asShortFloat <= 200000100000000000000 ). |
483 self assert:( 2000000.0 asShortFloat <= 200000100000000000000 ). |
474 self assert:( 2000000.0 asShortFloat <= 2000000 ). |
484 self assert:( 2000000.0 asShortFloat <= 2000000 ). |
475 |
485 |
476 self assert:( 200000000000000000000 <= 200001000000000000000.0). |
|
477 self assert:( 200000000000000000000 <= 200000000000000000000.0). |
|
478 self assert:( 200000000000000000000 <= 200001000000000000000.0 asLongFloat ). |
|
479 self assert:( 200000000000000000000 <= 200000000000000000000.0 asLongFloat ). |
|
480 self assert:( 2000000 <= 2000000.0 asShortFloat ). |
486 self assert:( 2000000 <= 2000000.0 asShortFloat ). |
481 self assert:( 2000000 <= 2000000.0 asShortFloat ). |
487 self assert:( 2000000 <= 2000000.0 asShortFloat ). |
482 |
488 |
483 " |
489 " |
484 self basicNew test05_Comparing |
490 self basicNew test05_Comparing |