[squeak-dev] The Trunk: Tests-cwp.294.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Mar 31 18:25:55 UTC 2014
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.
+ !
More information about the Squeak-dev
mailing list
|