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

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

Name: Tests-cmm.256
Author: cmm
Time: 3 October 2013, 2:52:17.76 pm
UUID: c46a7f7b-159f-4f8c-9e26-ab6f97290614
Ancestors: Tests-nice.255

Changes for updates to RecentMessages in System-cmm.600.

=============== Diff against Tests-nice.255 ===============

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

Item was added:
+ ----- 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 changed:
  ----- Method: RecentMessagesTest>>testMaximumSubmissionCountCapsReferenceCount (in category 'testing') -----
  testMaximumSubmissionCountCapsReferenceCount
  	rm maximumSubmissionCount: 2.
  	rm recordSelector: #foo forClass: Utilities inEnvironment: Smalltalk globals.
  	rm recordSelector: #bar forClass: Utilities inEnvironment: Smalltalk globals.
  	rm recordSelector: #baz forClass: Utilities inEnvironment: Smalltalk globals.
+ 	self assert: #bar equals: rm leastRecent selector.!
- 	self assert: #bar equals: rm oldest selector.!

Item was changed:
  ----- Method: RecentMessagesTest>>testOldestReturnsOldestSubmission (in category 'testing') -----
  testOldestReturnsOldestSubmission
+ 	self assert: nil equals: rm leastRecent description: 'Return nil if no submissions yet'.
- 	self assert: nil equals: rm oldest description: 'Return nil if no submissions yet'.
  	rm recordSelector: #foo forClass: Utilities inEnvironment: Smalltalk globals.
+ 	self assert: #foo equals: rm leastRecent selector.
- 	self assert: #foo equals: rm oldest selector.
  	rm recordSelector: #baz forClass: Utilities inEnvironment: Smalltalk globals.
+ 	self assert: #foo equals: rm leastRecent selector.!
- 	self assert: #foo equals: rm oldest selector.!