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')) !
squeak-dev@lists.squeakfoundation.org