#QUALITY by cg
class: RegressionTests::TypedArrayTests
class definition
added:6 methods
--- a/RegressionTests__TypedArrayTests.st Thu Aug 25 16:45:49 2016 +0200
+++ b/RegressionTests__TypedArrayTests.st Fri Aug 26 13:28:16 2016 +0200
@@ -543,7 +543,64 @@
self assert:(a at:3) = 99.
"/ -------------------------------------
+
+ a := SignedLongIntegerArray new:3.
+
+ a at:1 put:1.
+ a at:2 put:-2.
+ a at:3 put:99.
+
+ "/ this depends on the machine's byte order!!
+ UninterpretedBytes isBigEndian ifTrue:[
+ self assert:(a byteAt:1) = 0.
+ self assert:(a byteAt:2) = 0.
+ self assert:(a byteAt:3) = 0.
+ self assert:(a byteAt:4) = 0.
+ self assert:(a byteAt:5) = 0.
+ self assert:(a byteAt:6) = 0.
+ self assert:(a byteAt:7) = 0.
+ self assert:(a byteAt:8) = 1.
+
+ self assert:(a byteAt:8+1) = 16rFF.
+ self assert:(a byteAt:8+2) = 16rFF.
+ self assert:(a byteAt:8+3) = 16rFF.
+ self assert:(a byteAt:8+4) = 16rFF.
+ self assert:(a byteAt:8+5) = 16rFF.
+ self assert:(a byteAt:8+6) = 16rFF.
+ self assert:(a byteAt:8+7) = 16rFF.
+ self assert:(a byteAt:8+8) = 16rFE.
+
+ a byteAt:8+8 put:16rFD.
+ ] ifFalse:[
+ self assert:(a byteAt:1) = 1.
+ self assert:(a byteAt:2) = 0.
+ self assert:(a byteAt:3) = 0.
+ self assert:(a byteAt:4) = 0.
+ self assert:(a byteAt:5) = 0.
+ self assert:(a byteAt:6) = 0.
+ self assert:(a byteAt:7) = 0.
+ self assert:(a byteAt:8) = 0.
+
+ self assert:(a byteAt:8+1) = 16rFE.
+ self assert:(a byteAt:8+2) = 16rFF.
+ self assert:(a byteAt:8+3) = 16rFF.
+ self assert:(a byteAt:8+4) = 16rFF.
+ self assert:(a byteAt:8+5) = 16rFF.
+ self assert:(a byteAt:8+6) = 16rFF.
+ self assert:(a byteAt:8+7) = 16rFF.
+ self assert:(a byteAt:8+8) = 16rFF.
+
+ a byteAt:8+1 put:16rFD.
+ ].
+
+ self assert:(a at:1) = 1.
+ self assert:(a at:2) = -3.
+ self assert:(a at:3) = 99.
+
"/ -------------------------------------
+"/ -------------------------------------
+
+ "Modified: / 26-08-2016 / 13:27:57 / cg"
! !
!TypedArrayTests class methodsFor:'documentation'!