#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Fri, 26 Aug 2016 13:28:16 +0200
changeset 1520 590a5d6a7ed6
parent 1519 988f076710fc
child 1521 52ffd99b102b
#QUALITY by cg class: RegressionTests::TypedArrayTests class definition added:6 methods
RegressionTests__TypedArrayTests.st
--- 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'!