--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__TypedArrayTests.st	Wed Aug 24 17:31:20 2016 +0200
@@ -0,0 +1,66 @@
+"{ Package: 'stx:goodies/regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#TypedArrayTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Collections'
+!
+
+
+!TypedArrayTests class methodsFor:'queries'!
+
+coveredClassNames
+    ^ #( FloatArray )
+! !
+
+!TypedArrayTests methodsFor:'tests'!
+
+test01_createArrays
+    |a|
+
+    a := FloatArray new:3.
+
+    self assert:(a size == 3).
+
+    a at:1 put:1.
+    a at:2 put:2.
+    a at:3 put:3.
+
+    self assert:(a at:1) = 1.0.
+    self assert:(a at:2) = 2.0.
+    self assert:(a at:3) = 3.0.
+!
+
+test02_copyArrays
+    |src copy|
+
+    src := FloatArray new:50.
+    src at:1 put:1.
+    src at:2 put:2.
+    src at:3 put:3.
+
+    self assert:(src at:1) = 1.0.
+    self assert:(src at:2) = 2.0.
+    self assert:(src at:3) = 3.0.
+
+    copy := src copyFrom:1 to:3.
+    
+    self assert:(copy size == 3).
+    self assert:(copy at:1) = 1.0.
+    self assert:(copy at:2) = 2.0.
+    self assert:(copy at:3) = 3.0.
+! !
+
+!TypedArrayTests class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
+! !
+