The Trunk: CollectionsTests-mt.235.mcz

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

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

Name: CollectionsTests-mt.235
Author: mt
Time: 20 January 2015, 8:28:19.694 am
UUID: 34359bef-b98b-214a-89b2-a1905c5bdca8
Ancestors: CollectionsTests-mt.234

Updated tests for OrderedDictionary.

=============== Diff against CollectionsTests-mt.234 ===============

Item was changed:
  ----- Method: OrderedDictionaryTest>>testCompact (in category 'tests') -----
  testCompact
+ "Eager compacting on removal."
 
+ 1 to: 3 do: [:ea | sut at: ea put: nil].
- | oldCapacity |
- 1 to: 3 do: [:ea |
- sut at: ea put: nil].
- self assert: sut size equals: (sut instVarNamed: #lastIndex).
-
  sut removeKey: 2.
+ self assert: 2 equals: ((sut instVarNamed: #order) count: [:ea | ea notNil]).!
- self assert: sut size equals: (sut instVarNamed: #lastIndex) - 1.
-
- oldCapacity := sut capacity.
- 4 to: 20 do: [:ea |
- sut at: ea put: nil].
- self
- assert: sut capacity > oldCapacity;
- assert: sut size equals: (sut instVarNamed: #lastIndex).
- !