[squeak-dev] The Trunk: KernelTests-eem.267.mcz

commits at source.squeak.org commits at source.squeak.org
Sat May 3 00:57:16 UTC 2014


Eliot Miranda uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-eem.267.mcz

==================== Summary ====================

Name: KernelTests-eem.267
Author: eem
Time: 2 May 2014, 5:56:52.293 pm
UUID: a0f1e4f2-95e0-4334-b4a8-870f5b3f9c82
Ancestors: KernelTests-nice.266

Update ClassTest to test for Kernel-eem.847's fix.

=============== Diff against KernelTests-nice.266 ===============

Item was changed:
  ----- Method: ClassTest>>setUp (in category 'setup') -----
  setUp
  	className := #TUTU.
  	renamedName := #RenamedTUTU.
  	self deleteClass.
  	self deleteRenamedClass.
  	Object subclass: className
  		instanceVariableNames: ''
  		classVariableNames: ''
  		poolDictionaries: ''
+ 		category: self categoryNameForTemporaryClasses.
+ 	#('foo' 'bar self foo' 'baz self bar') do:
+ 		[:s| (Smalltalk at: className) compile: s]!
- 		category: self categoryNameForTemporaryClasses!

Item was changed:
  ----- Method: ClassTest>>testAddInstVarName (in category 'testing') -----
  testAddInstVarName
  	"self run: #testAddInstVarName"
  	
  	
  	| tutu |
+ 	tutu := Smalltalk at: className.
- 	tutu := Smalltalk at: #TUTU.
  	tutu addInstVarName: 'x'.
  	self assert: (tutu instVarNames = #('x')).
  	tutu addInstVarName: 'y'.
+ 	self assert: (tutu instVarNames = #('x' 'y')).
+ 	tutu selectorsAndMethodsDo:
+ 		[:s :m|
+ 		self assert: m methodClassAssociation == (Smalltalk bindingOf: className)]
- 	self assert: (tutu instVarNames = #('x' 'y'))
  	
  	!



More information about the Squeak-dev mailing list