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'.!