The Trunk: Tests-cmm.257.mcz

Chris Muller uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-cmm.257.mcz

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

Name: Tests-cmm.257
Author: cmm
Time: 15 October 2013, 2:13:55.75 pm
UUID: 2665c149-9a24-4a6e-b21e-a1c6122e21dc
Ancestors: Tests-cmm.256

- Tests update for nascent RecentMessages changes.

=============== Diff against Tests-cmm.256 ===============

Item was removed:
- ----- Method: RecentMessages>>purge: (in category '*tests') -----
- purge: aMethodReference
- methodReferences remove: aMethodReference.!

Item was removed:
- ----- Method: RecentMessages>>purgeMissingMethods (in category '*tests') -----
- purgeMissingMethods
- methodReferences := methodReferences select: [:mref | |cls|
- cls := mref actualClass.
- cls notNil
- and: [cls isInMemory]
- and: [mref selector == #Comment or: [(cls compiledMethodAt: mref selector ifAbsent: [nil]) notNil]]].!

Item was removed:
- ----- Method: RecentMessagesTest>>testPurgeMissingMethods (in category 'testing') -----
- testPurgeMissingMethods
- rm recordSelector: #utilitiesDoesNotKnowThisSelector forClass: Utilities inEnvironment: Smalltalk globals.
- rm recordSelector: #utilitiesDoesNotKnowThisSelectorEither forClass: Utilities inEnvironment: Smalltalk globals.
- rm purgeMissingMethods.
- self assert: 0 equals: rm size.!

Item was removed:
- ----- Method: RecentMessagesTest>>testPurgeMissingMethodsRemovesSubmissionsForMissingClasses (in category 'testing') -----
- testPurgeMissingMethodsRemovesSubmissionsForMissingClasses
- | missingClass |
- missingClass := FakeObjectOut new.
- rm recordSelector: #Comment forClass: missingClass inEnvironment: env.
- rm recordSelector: #foo forClass: missingClass inEnvironment: env.
- rm purgeMissingMethods.
- self assert: rm isEmpty.!

Item was removed:
- ----- Method: RecentMessagesTest>>testPurgeRemovesReferences (in category 'testing') -----
- testPurgeRemovesReferences
- | ref |
- rm recordSelector: #foo forClass: Utilities inEnvironment: Smalltalk globals.
- ref := MethodReference class: Utilities selector: #foo environment: Smalltalk globals.
- rm purge: ref.
- self assert: 0 equals: rm size.!

Item was removed:
- ----- Method: RecentMessagesTest>>testRevertLastRemovesLatestVersion (in category 'testing') -----
- testRevertLastRemovesLatestVersion
- | victim |
- victim := self createClass: #Victim.
- victim compile: 'foo ^ 1'.
- victim compile: 'foo ^ 2'.
- rm recordSelector: #foo forClass: victim inEnvironment: env.
- rm revertLast.
- self assert: 1 equals: victim new foo description: 'Version not removed'.!

Item was removed:
- ----- Method: RecentMessagesTest>>testRevertLastRemovesNewMethod (in category 'testing') -----
- testRevertLastRemovesNewMethod
- | victim |
- victim := self createClass: #Victim.
- victim compile: 'foo ^ 1'.
- rm recordSelector: #foo forClass: victim inEnvironment: env.
- rm revertLast.
- self deny: (victim includesSelector: #foo) description: 'Method not removed'.!

Item was added:
+ ----- Method: RecentMessagesTest>>testRevertMostRecentRemovesLatestVersion (in category 'testing') -----
+ testRevertMostRecentRemovesLatestVersion
+ | victim |
+ victim := self createClass: #Victim.
+ victim compile: 'foo ^ 1'.
+ victim compile: 'foo ^ 2'.
+ rm recordSelector: #foo forClass: victim inEnvironment: env.
+ rm revertMostRecent.
+ self assert: 1 equals: victim new foo description: 'Version not removed'.!

Item was added:
+ ----- Method: RecentMessagesTest>>testRevertMostRecentRemovesNewMethod (in category 'testing') -----
+ testRevertMostRecentRemovesNewMethod
+ | victim |
+ victim := self createClass: #Victim.
+ victim compile: 'foo ^ 1'.
+ rm recordSelector: #foo forClass: victim inEnvironment: env.
+ rm revertMostRecent.
+ self deny: (victim includesSelector: #foo) description: 'Method not removed'.!