Andreas Raab uploaded a new version of TraitsTests to project The Trunk:
http://source.squeak.org/trunk/TraitsTests-ar.6.mcz

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

Name: TraitsTests-ar.6
Author: ar
Time: 5 March 2010, 9:12:19.231 pm
UUID: 255fc82b-9ff7-5b4d-ae8b-be6fecfa200d
Ancestors: TraitsTests-ar.5

Avoid dictionary protocol in Smalltalk.

=============== Diff against TraitsTests-ar.5 ===============

Item was changed:
  ----- Method: TraitFileOutTest>>testFileOutCategory (in category 'testing') -----
  testFileOutCategory
  	"File out whole system category, delete all classes and traits and then
  	file them in again."
  
  	"self run: #testFileOutCategory"
  
  	| |
  	SystemOrganization fileOutCategory: self categoryName.
  	SystemOrganization removeSystemCategory: self categoryName.
+ 	self deny: (Smalltalk globals keys includesAnyOf: #(CA CB TA TB TC TD)).
- 	self deny: (Smalltalk keys includesAnyOf: #(CA CB TA TB TC TD)).
  	
  	self fileIn: self categoryName , '.st'..
  
+ 	self assert: (Smalltalk globals keys includesAllOf: #(CA CB TA TB TC TD)).
- 	self assert: (Smalltalk keys includesAllOf: #(CA CB TA TB TC TD)).
  
  	ta := Smalltalk at: #TA.
  	self assert: (ta isKindOf: Trait).
  	self assert: ta traitComposition asString = 'TB + TC @ {#cc->#c} - {#c}'.
  	self assert: (ta methodDict keys includesAllOf: #(a b cc)).
  
  	cb := Smalltalk at: #CB.
  	self assert: (cb isKindOf: Class).
  	self assert: cb traitComposition asString = 'TA'.
  	self assert: (cb methodDict keys includesAllOf: #(cb a b cc)).
  
  	"test classSide traitComposition of CB"
  
  	self assert: cb classSide traitComposition asString =  'TA classTrait + TC'.
  	self assert: (cb classSide methodDict keys includesAllOf: #(d c))
  !