Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.249.mcz
==================== Summary ====================
Name: Tests-cmm.249 Author: cmm Time: 14 August 2013, 1:07:51.56 pm UUID: b4ce241c-eaa5-4324-90aa-6f895203b47d Ancestors: Tests-cmm.247
- Added test for new MCInfoProxy.
=============== Diff against Tests-nice.246 ===============
Item was added: + ----- Method: InstallerTest class>>suiteClass (in category 'as yet unclassified') ----- + suiteClass + ^ InstallerTestSuite!
Item was added: + TestSuite subclass: #InstallerTestSuite + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Installer-Core'!
Item was added: + ----- Method: InstallerTestSuite>>ensureTestMethods (in category 'initialize-release') ----- + ensureTestMethods + "Ensure InstallerTest has test methods for each externally-loadable package defined by Installer. By generating these methods, they don't have to be maintained separately." + ^ (Installer methodsInCategory: 'external-packages') do: + [ : each | (InstallerTest canUnderstand: each) ifFalse: + [ InstallerTest + compile: + (String streamContents: + [ : stream | stream + nextPutAll: 'test'; nextPutAll: each; + cr; tab; + nextPutAll: 'Installer new merge: #'; nextPutAll: each ]) + classified: '*generated' ] ]!
Item was added: + ----- Method: InstallerTestSuite>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + self ensureTestMethods!
Item was added: + ----- Method: MCWorkingCopyTest>>testInfoProxy (in category 'tests') ----- + testInfoProxy + | latestSnapshot instanceCountBefore notificationReceived allAncestorsBefore | + <timeout: 10> + latestSnapshot := (1 to: 13) + inject: self snapshot + into: [ : snap : n | self change: #someMethod toReturn: n; snapshot ]. + Smalltalk garbageCollect. + instanceCountBefore := MCVersionInfo instanceCount. + allAncestorsBefore := workingCopy ancestry allAncestors. + workingCopy stubAncestry. + repositoryGroup flushCache. + Smalltalk garbageCollect. + "We're only one less rather than three, because we're using an in-memory repository" + self assert: instanceCountBefore < MCVersionInfo instanceCount. + notificationReceived := false. + [ self assert: allAncestorsBefore = workingCopy ancestry allAncestors ] + on: MCProxyMaterialization + do: + [ : noti | notificationReceived := true. + noti defaultAction ]. + self + assert: notificationReceived ; + assert: MCVersionInfo instanceCount >= instanceCountBefore. + "Very important to ensure saving does not save a truncated ancestry hierarchy." + workingCopy stubAncestry. + self change: #someMethod toReturn: 14; snapshot. + self assert: workingCopy ancestry ancestors anyOne allAncestors = allAncestorsBefore!
squeak-dev@lists.squeakfoundation.org