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

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

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

Name: CollectionsTests-nice.97
Author: nice
Time: 25 September 2009, 8:31:56 am
UUID: 4faed0c6-ac60-e145-b88d-be50d2569c01
Ancestors: CollectionsTests-ar.96

Test from http://bugs.squeak.org/view.php?id=7095

Assert this feature:

Dictionary>>#collect: should preserve the keys

=============== Diff against CollectionsTests-ar.96 ===============

Item was added:
+ ----- Method: DictionaryTest>>testCollect (in category 'testing') -----
+ testCollect
+ "Ensure that Dictionary>>collect: answers a dictionary not something else"
+ | dict expected result |
+ dict := Dictionary newFromPairs:{
+ #first. 1.
+ #second. 2.
+ #third. 3.
+ #fourth. 4.
+ #fifth. 5.
+ }.
+ result := dict collect:[:each| each asWords].
+ expected := Dictionary newFromPairs:{
+ #first. 'one'.
+ #second. 'two'.
+ #third. 'three'.
+ #fourth. 'four'.
+ #fifth. 'five'.
+ }.
+ self assert: result = expected.!

Item was added:
+ ----- Method: DictionaryTest>>testSelect (in category 'testing') -----
+ testSelect
+ "Ensure that Dictionary>>select: answers a dictionary not something else"
+ | dict expected result |
+ dict := Dictionary newFromPairs:{
+ #first. 1.
+ #second. 2.
+ #third. 3.
+ #fourth. 4.
+ #fifth. 5.
+ }.
+ result := dict select:[:each| each odd].
+ expected := Dictionary newFromPairs:{
+ #first. 1.
+ #third. 3.
+ #fifth. 5.
+ }.
+ self assert: result = expected.!

Item was added:
+ ----- Method: DictionaryTest>>testReject (in category 'testing') -----
+ testReject
+ "Ensure that Dictionary>>reject: answers a dictionary not something else"
+ | dict expected result |
+ dict := Dictionary newFromPairs:{
+ #first. 1.
+ #second. 2.
+ #third. 3.
+ #fourth. 4.
+ #fifth. 5.
+ }.
+ result := dict reject:[:each| each odd].
+ expected := Dictionary newFromPairs:{
+ #second. 2.
+ #fourth. 4.
+ }.
+ self assert: result = expected.!