[squeak-dev] The Trunk: CollectionsTests-pre.314.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 23 07:31:29 UTC 2019


Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-pre.314.mcz

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

Name: CollectionsTests-pre.314
Author: pre
Time: 22 July 2019, 3:14:39.839761 pm
UUID: e3cb9512-d24c-034b-9c4d-31dc6aa3c7e4
Ancestors: CollectionsTests-mt.313

Adds tests for collect:as: which has a suprising limitation for collecting a Set as a Dictionary.

=============== Diff against CollectionsTests-mt.313 ===============

Item was added:
+ ----- Method: CollectionTest>>testCollectAs (in category 'tests') -----
+ testCollectAs
+ 
+ 	| classes collection newCollection |
+ 	classes := {Array . OrderedCollection . Set . Bag}.
+ 	classes do: [:originClass |
+ 		classes do: [:targetClass |
+ 			collection := originClass with: 1 with: 2 with: 3.
+ 			newCollection := collection collect: [:v | v + 1] as: targetClass.
+ 			self 
+ 				assert: collection size equals: newCollection size;
+ 				assert: (newCollection includesAllOf: { 2 . 3. 4})]]!

Item was added:
+ ----- Method: DictionaryTest>>testCollectAs (in category 'tests - collection protocol') -----
+ testCollectAs
+ 
+ 	| classes collection dictionary |
+ 	classes := {Array . OrderedCollection . Set . Bag}.
+ 	classes do: [:originClass |
+ 			collection := originClass with: 1 with: 2 with: 3.
+ 			dictionary := collection collect: [:v | v -> (v + 1)] as: Dictionary.
+ 			self 
+ 				assert: collection size equals: dictionary size;
+ 				assert: (dictionary associations includesAllOf: { 1 -> 2 . 2 -> 3. 3 -> 4})]!



More information about the Squeak-dev mailing list