541 self assert:(a at:1) = 1. |
541 self assert:(a at:1) = 1. |
542 self assert:(a at:2) = 3. |
542 self assert:(a at:2) = 3. |
543 self assert:(a at:3) = 99. |
543 self assert:(a at:3) = 99. |
544 |
544 |
545 "/ ------------------------------------- |
545 "/ ------------------------------------- |
546 "/ ------------------------------------- |
546 |
|
547 a := SignedLongIntegerArray new:3. |
|
548 |
|
549 a at:1 put:1. |
|
550 a at:2 put:-2. |
|
551 a at:3 put:99. |
|
552 |
|
553 "/ this depends on the machine's byte order!! |
|
554 UninterpretedBytes isBigEndian ifTrue:[ |
|
555 self assert:(a byteAt:1) = 0. |
|
556 self assert:(a byteAt:2) = 0. |
|
557 self assert:(a byteAt:3) = 0. |
|
558 self assert:(a byteAt:4) = 0. |
|
559 self assert:(a byteAt:5) = 0. |
|
560 self assert:(a byteAt:6) = 0. |
|
561 self assert:(a byteAt:7) = 0. |
|
562 self assert:(a byteAt:8) = 1. |
|
563 |
|
564 self assert:(a byteAt:8+1) = 16rFF. |
|
565 self assert:(a byteAt:8+2) = 16rFF. |
|
566 self assert:(a byteAt:8+3) = 16rFF. |
|
567 self assert:(a byteAt:8+4) = 16rFF. |
|
568 self assert:(a byteAt:8+5) = 16rFF. |
|
569 self assert:(a byteAt:8+6) = 16rFF. |
|
570 self assert:(a byteAt:8+7) = 16rFF. |
|
571 self assert:(a byteAt:8+8) = 16rFE. |
|
572 |
|
573 a byteAt:8+8 put:16rFD. |
|
574 ] ifFalse:[ |
|
575 self assert:(a byteAt:1) = 1. |
|
576 self assert:(a byteAt:2) = 0. |
|
577 self assert:(a byteAt:3) = 0. |
|
578 self assert:(a byteAt:4) = 0. |
|
579 self assert:(a byteAt:5) = 0. |
|
580 self assert:(a byteAt:6) = 0. |
|
581 self assert:(a byteAt:7) = 0. |
|
582 self assert:(a byteAt:8) = 0. |
|
583 |
|
584 self assert:(a byteAt:8+1) = 16rFE. |
|
585 self assert:(a byteAt:8+2) = 16rFF. |
|
586 self assert:(a byteAt:8+3) = 16rFF. |
|
587 self assert:(a byteAt:8+4) = 16rFF. |
|
588 self assert:(a byteAt:8+5) = 16rFF. |
|
589 self assert:(a byteAt:8+6) = 16rFF. |
|
590 self assert:(a byteAt:8+7) = 16rFF. |
|
591 self assert:(a byteAt:8+8) = 16rFF. |
|
592 |
|
593 a byteAt:8+1 put:16rFD. |
|
594 ]. |
|
595 |
|
596 self assert:(a at:1) = 1. |
|
597 self assert:(a at:2) = -3. |
|
598 self assert:(a at:3) = 99. |
|
599 |
|
600 "/ ------------------------------------- |
|
601 "/ ------------------------------------- |
|
602 |
|
603 "Modified: / 26-08-2016 / 13:27:57 / cg" |
547 ! ! |
604 ! ! |
548 |
605 |
549 !TypedArrayTests class methodsFor:'documentation'! |
606 !TypedArrayTests class methodsFor:'documentation'! |
550 |
607 |
551 version |
608 version |