[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