--- a/RegressionTests__CollectionTests.st	Wed Feb 05 00:12:06 2014 +0100
+++ b/RegressionTests__CollectionTests.st	Wed Feb 05 01:30:57 2014 +0100
@@ -1029,7 +1029,10 @@
         asArray
         asFloatArray
         asDoubleArray
+        asHalfFloatArray
+        asSignedWordArray
         asSignedIntegerArray
+        asSignedLongIntegerArray
     ) do:[:converter |
         |empty|
 
@@ -1047,11 +1050,50 @@
             (-1 -0)
             (-1 1)
             (1 10000)
+            (1 20000)
+            (2 10000)
+            (2 20000)
+            (-1000 1000)
+            (-1000 999)
+        ) pairsDo:[:min :max |
+            a := (min to:max) perform:converter.
+            self assert:(a min) = min.
+            self assert:(a max) = max.
+            self assert:(a minMax) = { min. max }.  
+
+            a := a reverse.
+            self assert:(a min) = min.
+            self assert:(a max) = max.
+            self assert:(a minMax) = { min. max }.  
+
+            a := a randomShuffle.
+            self assert:(a min) = min.
+            self assert:(a max) = max.
+            self assert:(a minMax) = { min. max }.  
+        ].
+    ].
+
+    #(
+        asWordArray
+        asIntegerArray
+        asLongIntegerArray
+    ) do:[:converter |
+        |empty|
+
+        empty := #() perform:converter.
+        self should:[ empty min ] raise:Error.
+        self should:[ empty max ] raise:Error.
+        self should:[ empty minMax ] raise:Error.
+
+        #(
+            (0 0)
+            (1 1)
+            (0 1)
+            (1 2)
+            (1 10000)
             (1 10001)
             (2 10000)
             (2 10001)
-            (-1000 1000)
-            (-1000 999)
         ) pairsDo:[:min :max |
             a := (min to:max) perform:converter.
             self assert:(a min) = min.