Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-mt.229.mcz==================== Summary ====================
Name: CollectionsTests-mt.229
Author: mt
Time: 15 January 2015, 5:15:23.643 pm
UUID: 5ed2aee8-4067-2945-8655-f1b218b95bfb
Ancestors: CollectionsTests-mt.228
tests for ordered dictionary added
=============== Diff against CollectionsTests-mt.228 ===============
Item was added:
+ ClassTestCase subclass: #OrderedDictionaryTest
+ instanceVariableNames: 'sut'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'CollectionsTests-Sequenceable'!
Item was added:
+ ----- Method: OrderedDictionaryTest>>setUp (in category 'running') -----
+ setUp
+
+ super setUp.
+ sut := OrderedDictionary new: 7.!
Item was added:
+ ----- Method: OrderedDictionaryTest>>testCompact (in category 'tests') -----
+ testCompact
+
+ | oldCapacity |
+ 1 to: 3 do: [:ea |
+ sut at: ea put: nil].
+ self assert: sut size equals: (sut instVarNamed: #lastIndex).
+
+ sut removeKey: 2.
+ 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).
+ !
Item was added:
+ ----- Method: OrderedDictionaryTest>>testGrow (in category 'tests') -----
+ testGrow
+
+ self
+ assert: 11 equals: sut capacity; "next prime number to 7; see #setUp"
+ assert: sut capacity equals: (sut instVarNamed: #order) size.
+
+ 1 to: sut capacity do: [:ea |
+ sut at: ea put: nil].
+
+ self
+ assert: sut capacity > 11;
+ assert: sut capacity equals: (sut instVarNamed: #order) size.!
Item was added:
+ ----- Method: OrderedDictionaryTest>>testOrder (in category 'tests') -----
+ testOrder
+ "We use integers as keys to match hash values."
+
+ | dict |
+ dict := Dictionary new.
+
+ 1 to: 10 do: [:ea |
+ dict at: ea put: nil.
+ sut at: ea put: nil].
+
+ self assert: dict keys = sut keys.
+
+ dict removeKey: 5.
+ sut removeKey: 5.
+
+ self assert: dict keys = sut keys.
+
+ dict at: 5 put: nil.
+ sut at: 5 put: nil.
+
+ self
+ assert: dict keys ~= sut keys;
+ assert: #(1 2 3 4 6 7 8 9 10 5) equals: sut keys;
+ assert: #(1 2 3 4 5 6 7 8 9 10) equals: dict keys.!
Item was added:
+ ----- Method: OrderedDictionaryTest>>testOverflow (in category 'tests') -----
+ testOverflow
+ "Check whether repeated additions of the same alternating keys causes an error."
+
+ self
+ shouldnt: [20 timesRepeat: [sut at: 1 put: nil. sut at: 2 put: nil]]
+ raise: Error. !
Item was added:
+ ----- Method: OrderedDictionaryTest>>testOverwriteValue (in category 'tests') -----
+ testOverwriteValue
+
+ 1 to: 5 do: [:ea |
+ sut at: ea put: nil].
+
+ sut at: 3 put: nil.
+
+ self assert: #(1 2 4 5 3) equals: sut keys.!
Locked
