Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.294.mcz
==================== Summary ====================
Name: Tests-cwp.294 Author: cwp Time: 31 March 2014, 1:24:25.145 pm UUID: eb1b694e-7203-41b8-966d-48442e16810e Ancestors: Tests-cwp.293
Add a test for class renaming.
=============== Diff against Tests-cwp.293 ===============
Item was changed: ----- Method: EnvironmentTest>>createClass: (in category 'running') ----- createClass: aSymbol | builder | builder := ClassBuilder new. + ^ builder - builder name: aSymbol inEnvironment: env subclassOf: Object type: #normal instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Test'. + ! - !
Item was added: + ----- Method: EnvironmentTest>>testRenameCreatesNewBinding (in category 'class tests') ----- + testRenameCreatesNewBinding + | class newBinding oldBinding | + env importSelf. + class := self createClass: #Griffle. + oldBinding := env bindingOf: #Griffle. + class rename: #Plonk. + newBinding := env bindingOf: #Plonk. + self deny: newBinding == oldBinding. + + self assert: nil identical: oldBinding value. + self assert: #Griffle equals: oldBinding key. + + self assert: #Plonk equals: newBinding key. + self assert: class identical: newBinding value. + !