[squeak-dev] The Trunk: CollectionsTests-nice.101.mcz

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-nice.101.mcz

==================== Summary ====================

Name: CollectionsTests-nice.101
Author: nice
Time: 5 October 2009, 12:26:49 pm
UUID: 43a48a6e-6a25-418f-a9e5-d11b780b1615
Ancestors: CollectionsTests-dtl.100

Add tests from http://bugs.squeak.org/view.php?id=6535
keyBlock and sortBlock are lost when creating a collection of the same species.

=============== Diff against CollectionsTests-dtl.100 ===============

Item was added:
+ ClassTestCase subclass: #KeyedSetTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'CollectionsTests-Unordered'!
+
+ !KeyedSetTest commentStamp: 'nice 5/22/2008 14:12' prior: 0!
+ KeyedSetTest hold sunit tests for class KeyedSet!

Item was added:
+ ----- Method: SortedCollectionTest>>testSpeciesLooseSortBlock (in category 'basic') -----
+ testSpeciesLooseSortBlock
+ "This is a non regression test for http://bugs.squeak.org/view.php?id=6535"
+
+ | numbers reverseOrder firstThree |
+ numbers := #(1 2 3 4 5).
+ reverseOrder := SortedCollection sortBlock: [:x :y | x > y].
+ reverseOrder addAll: numbers.
+
+ "The elements are inverted"
+ self assert: [reverseOrder asArray = #(5 4 3 2 1)].
+
+ "Copy the first 3 elements"
+ firstThree := reverseOrder copyFrom: 1 to: 3.
+
+ "It appears to work"
+ self assert: [firstThree asArray = #(5 4 3)].
+
+ "but we have lost the sort block"
+ firstThree add: 1.
+
+ " firstThree is now #(1 5 4 3)!! "
+ self assert: [firstThree asArray = #(5 4 3 1)] "fails"!

Item was added:
+ ----- Method: KeyedSetTest>>testSelect (in category 'tests') -----
+ testSelect
+ "this is a non regression test for http://bugs.squeak.org/view.php?id=6535"
+
+ | ks ks2 |
+
+ "Creare a KeyedSet"
+ ks := KeyedSet keyBlock: [:e | e asInteger \\ 4].
+ ks addAll: #(1.2 1.5 3.8 7.7 9.1 12.4 13.25 14.0 19.2 11.4).
+
+ "There is non more than 4 possible keys (0 1 2 3)"
+ self assert: ks size <= 4.
+
+ "Select some elements"
+ ks2 := ks select: [:e | e fractionPart > 0.5].
+
+ "If keyBlock was preserved, then still no more than 4 keys..."
+ ks2 addAll: #(1.2 1.5 3.8 7.7 9.1 12.4 13.25 14.0 19.2 11.4).
+ self assert: ks2 size <= 4.!