--- 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.