--- a/RegressionTests__CollectionTests.st	Tue Feb 04 20:24:09 2014 +0100
+++ b/RegressionTests__CollectionTests.st	Tue Feb 04 20:26:19 2014 +0100
@@ -440,6 +440,34 @@
     "
 
     "Created: / 08-05-2012 / 10:48:40 / cg"
+!
+
+testSpecialArrayClasses2
+    |a|
+
+    a := #(1 2 3 4 5) asFloatArray.
+    self assert:(a at:1) = 1.0.
+    self assert:(a at:a size) = 5.0.
+    self assert:(a first) = 1.0.
+    self assert:(a last) = 5.0.
+
+    a := #(1 2 3 4 5) asDoubleArray.
+    self assert:(a at:1) = 1.0.
+    self assert:(a at:a size) = 5.0.
+    self assert:(a first) = 1.0.
+    self assert:(a last) = 5.0.
+
+    a := #(1 2 3 4 5) asHalfFloatArray.
+    self assert:(a at:1) = 1.0.
+    self assert:(a at:a size) = 5.0.
+    self assert:(a first) = 1.0.
+    self assert:(a last) = 5.0.
+
+    "
+     self basicNew testSpecialArrayClasses2
+    "
+
+    "Created: / 08-05-2012 / 10:48:40 / cg"
 ! !
 
 !CollectionTests methodsFor:'tests-interval'!