The Inbox: CollectionsTests-cmm.314.mcz

Chris Muller uploaded a new version of CollectionsTests to project The Inbox:
http://source.squeak.org/inbox/CollectionsTests-cmm.314.mcz

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

Name: CollectionsTests-cmm.314
Author: cmm
Time: 4 June 2019, 9:15:34.016525 pm
UUID: a6094c13-6cf5-4b63-84b7-9e0a77df21b9
Ancestors: CollectionsTests-cmm.313

Additional test for #joinSeparatedBy: describes the expected behavior for unordered collections.

=============== Diff against CollectionsTests-cmm.313 ===============

Item was added:
+ ----- Method: CollectionTest>>runJoinTestUsing: (in category 'running') -----
+ runJoinTestUsing: classSelector
+ | joinedString joinedParts source |
+ source := #(#a #b #c #c #b #a #x #x #x #y #z #z #z #z #z '1' '22' '33' '33' '22' '1') perform: classSelector.
+ joinedString := source joinSeparatedBy: '|'.
+
+ "Verify output length"
+ joinedParts := joinedString subStrings: '|'.
+ self assert: (joinedString subStrings: '|') size = source size.
+
+ "Contents check"
+ joinedParts asBag sortedCounts do:
+ [ : each | self assert: (source occurrencesOf: each value) = each key ]!

Item was changed:
  ----- Method: CollectionTest>>testJoin (in category 'tests') -----
  testJoin
+ self assert: #(#a #b #c #d #e) join = 'abcde'.
+ self assert: (#(#a #b #c) joinSeparatedBy: '|') = 'a|b|c'.
+ #(#asArray #asOrderedCollection #asSet #asBag #asSortedArray #asSortedCollection) do:
+ [ : each | self runJoinTestUsing: each ]!
- | joined source |
- self assert: #(a b c d e) join = 'abcde'.
- self assert: (#(a b c) joinSeparatedBy: '|') = 'a|b|c'.
- "Test with unordered Set."
- source := #(a b c c b a x x x y z z z z z '1' '2' '3' '3' '2' '1') asSet.
- joined := source joinSeparatedBy: '|'.
- self assert: ((2 to: joined size by: 2) allSatisfy: [ : index | (joined at: index) = $| ]).
- self assert: ((1 to: joined size by: 2) allSatisfy: [ : index | source includes: (joined at: index) asString ]).
- "Repeat with Bag."
- source := #(a b c c b a x x x y z z z z z '1' '2' '3' '3' '2' '1') asBag.
- joined := source joinSeparatedBy: '|'.
- self assert: ((2 to: joined size by: 2) allSatisfy: [ : index | (joined at: index) = $| ]).
- self assert: ((1 to: joined size by: 2) allSatisfy: [ : index | source includes: (joined at: index) asString ]).
- !