The Trunk: TraitsTests-ar.6.mcz

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