Begin forwarded message:

From: commits@source.squeak.org Date: October 11, 2009 8:22:52 PM GMT+02:00 To: squeak-dev@lists.squeakfoundation.org Subject: [squeak-dev] The Trunk: KernelTests-mha.100.mcz Reply-To: squeak-dev@lists.squeakfoundation.org

Michael Haupt uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-mha.100.mcz

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

Name: KernelTests-mha.100 Author: mha Time: 11 October 2009, 8:23:14 am UUID: 2bceeeb6-b3e3-7a4e-9436-3010f8f730e7 Ancestors: KernelTests-nice.99

made MethodPropertiesTest pass

MethodPropertiesTest >> #propertyDictionaryFor: would ask the passed AdditionalMethodState instance to answer its instance variable named 'properties', which does not exist due to AdditionalMethodState's being implemented as a variable subclass of Object, and hence storing properties in immediate fields.

Also, the tests did not honour the AdditionalMethodState protocol in that they expected AdditionalMethodState >> #properties to return nil in case there were no properties; however, it returns an empty dictionary in these cases. The corresponding checks were changed from #isNil to #isEmpty.

=============== Diff against KernelTests-nice.99 ===============

Item was changed: ----- Method: MethodPropertiesTest>>testAt (in category 'testing') ----- testAt self should: [ method properties at: #zork ] raise: Error. + self assert: (self propertyDictionaryFor: method) isEmpty. - self assert: (self propertyDictionaryFor: method) isNil. method properties at: #zork put: 'hello'. self assert: (method properties at: #zork) = 'hello'.!

Item was changed: ----- Method: MethodPropertiesTest>>testRemoveKey (in category 'testing') ----- testRemoveKey method properties at: #zork put: 'hello'. self should: [ method properties removeKey: #halt ] raise: Error. self assert: (method properties removeKey: #zork) = 'hello'. + self assert: (self propertyDictionaryFor: method) isEmpty. - self assert: (self propertyDictionaryFor: method) isNil. self should: [ method properties removeKey: #zork ] raise: Error. + self assert: (self propertyDictionaryFor: method) isEmpty.! - self assert: (self propertyDictionaryFor: method) isNil.!

Item was changed: ----- Method: MethodPropertiesTest>>testAtIfAbsent (in category 'testing') ----- testAtIfAbsent self assert: (method properties at: #zork ifAbsent: [ 'hello' ]) = 'hello'. + self assert: (self propertyDictionaryFor: method) isEmpty. - self assert: (self propertyDictionaryFor: method) isNil. method properties at: #zork put: 'hi'. self assert: (method properties at: #zork ifAbsent: [ 'hello' ]) = 'hi'.!

Item was changed: ----- Method: MethodPropertiesTest>>testIncludesKey (in category 'testing') ----- testIncludesKey self deny: (method properties includesKey: #zork). + self assert: (self propertyDictionaryFor: method) isEmpty. - self assert: (self propertyDictionaryFor: method) isNil. method properties at: #zork put: 123. self assert: (method properties includesKey: #zork).!

Item was changed: ----- Method: MethodPropertiesTest>>testRemoveKeyifAbsent (in category 'testing') ----- testRemoveKeyifAbsent method properties at: #zork put: 'hello'. self assert: (method properties removeKey: #halt ifAbsent: [ 'hi' ]) = 'hi'. self assert: (method properties removeKey: #zork ifAbsent: [ 'hi' ]) = 'hello'. + self assert: (self propertyDictionaryFor: method) isEmpty. - self assert: (self propertyDictionaryFor: method) isNil. self should: (method properties removeKey: #zork ifAbsent: [ 'hi' ]) = 'hi'. + self assert: (self propertyDictionaryFor: method) isEmpty.! - self assert: (self propertyDictionaryFor: method) isNil.!

Item was changed: ----- Method: MethodPropertiesTest>>propertyDictionaryFor: (in category 'private') ----- propertyDictionaryFor: aMethod + ^ aMethod properties properties! - ^ aMethod properties instVarNamed: 'properties'.!