[Pkg] The Trunk: Tests-cmm.256.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Oct 3 19:52:58 UTC 2013
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.!
More information about the Packages
mailing list