The Trunk: KernelTests-eem.267.mcz

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'))
 
  !