--- a/RegressionTests__CollectionTests.st	Wed Feb 12 00:51:42 2014 +0100
+++ b/RegressionTests__CollectionTests.st	Wed Feb 12 15:40:21 2014 +0100
@@ -1117,6 +1117,22 @@
 
 !CollectionTests methodsFor:'tests-sorting'!
 
+testLargest
+    | col |
+
+    col := #(5 16 3 18 17 15 2 12 1 8 14 10 7 11 20 4 19 6 13 9).
+    self assert:(col max == 20).
+    self assert:(col largest:4) asArray = #(17 18 19 20).
+    self assert:(col smallest:4) asArray = #(1 2 3 4).
+
+    self assert:(col keysOfLargest:4) asArray = #(5 4 17 15).
+    self assert:(col keysOfSmallest:4) asArray = #(9 7 3 16).
+
+    "
+     self basicNew testLargest
+    "
+!
+
 testSort01
     | col errs last |