--- a/RegressionTests__CollectionTests.st Thu Apr 09 13:58:24 2015 +0200
+++ b/RegressionTests__CollectionTests.st Wed Jun 24 14:58:17 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"{ Package: 'exept:regression' }"
"{ NameSpace: RegressionTests }"
@@ -1217,6 +1215,36 @@
"
self basicNew testSortStability02
"
+!
+
+testSortedCollectionQueries
+ "test a SortedCollection, where only a single attribute is used for sorting.
+ #include: failed before 2015-06-24"
+
+ |collection|
+
+ collection := SortedCollection sortBlock:[:a :b | a key < b key ].
+ $a to:$z do:[:l |
+ 1 to:100 do:[:i |
+ collection add:(Association key:l value:i)
+ ].
+ ].
+
+ "/ make startIndex > 1 and endIndex < size
+
+ collection
+ removeFirst;
+ removeLast.
+ collection
+ keysAndValuesDo:[:eachIndex :eachElement |
+ self assert:(collection detect:[:el | el = eachElement ]) notNil.
+ self assert:(collection includes:eachElement).
+ self assert:(collection indexOf:eachElement) = eachIndex.
+ self assert:(collection occurrencesOf:eachElement) = 1.
+ self
+ assert:(collection
+ includes:(eachElement copy value:(eachElement value + 1000))) not.
+ ].
! !
!CollectionTests methodsFor:'tests-squeak'!