[Pkg] The Trunk: Tests-fbs.207.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.207.mcz

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

Name: Tests-fbs.207
Author: fbs
Time: 8 May 2013, 9:53:08.529 am
UUID: 622bbeba-1ff6-43ee-96aa-2ad7797490d2
Ancestors: Tests-fbs.206

Tests for Environment >> #removeKey: and #removeKey:ifAbsent:.

=============== Diff against Tests-fbs.206 ===============

Item was added:
+ ----- Method: EnvironmentTest>>testRemoveKey (in category 'compatibility tests') -----
+ testRemoveKey
+ 	self should: [env removeKey: #Griffle] raise: KeyNotFound.!

Item was added:
+ ----- Method: EnvironmentTest>>testRemoveKeyIfAbsent (in category 'compatibility tests') -----
+ testRemoveKeyIfAbsent
+ 	| result |
+ 	result := env removeKey: #Griffle ifAbsent: [#removed].
+ 	self assert: #removed equals: result.
+ 	
+ 	env at: #Griffle put: value.
+ 	result := env removeKey: #Griffle ifAbsent: [#removed].
+ 	self assert: value equals: result.!