The Trunk: TraitsTests-fbs.11.mcz

Frank Shearar uploaded a new version of TraitsTests to project The Trunk:
http://source.squeak.org/trunk/TraitsTests-fbs.11.mcz

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

Name: TraitsTests-fbs.11
Author: fbs
Time: 2 May 2013, 8:59:12.516 pm
UUID: 9a7215e9-a6c8-4844-8e4c-a7387e03f5a7
Ancestors: TraitsTests-ul.10

#assert:equals: is much better than #assert:

=============== Diff against TraitsTests-ul.10 ===============

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 fileIn: self categoryName , '.st'..
 
  self assert: (Smalltalk globals keys includesAllOf: #(CA CB TA TB TC TD)).
 
  ta := Smalltalk at: #TA.
  self assert: (ta isKindOf: Trait).
+ self assert: 'TB + TC @ {#cc->#c} - {#c}' equals: ta traitComposition asString.
- 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: 'TA' equals: cb traitComposition asString.
- self assert: cb traitComposition asString = 'TA'.
  self assert: (cb methodDict keys includesAllOf: #(cb a b cc)).
 
  "test classSide traitComposition of CB"
 
+ self assert: 'TA classTrait + TC' equals: cb classSide traitComposition asString.
- self assert: cb classSide traitComposition asString =  'TA classTrait + TC'.
  self assert: (cb classSide methodDict keys includesAllOf: #(d c))
  !

Item was changed:
  ----- Method: TraitFileOutTest>>testFileOutTrait (in category 'testing') -----
  testFileOutTrait
  "fileOut trait T6, remove it from system and then file it in again"
 
  "self run: #testFileOutTrait"
 
  | fileName |
  self t6 compile: 'localMethod: argument ^argument'.
  self t6 classSide compile: 'localClassSideMethod: argument ^argument'.
  self t6 fileOut.
  fileName := self t6 asString , '.st'.
  self resourceClassesAndTraits remove: self t6.
  self t6 removeFromSystem.
 
  self fileIn: fileName.
 
  self assert: (Smalltalk includesKey: #T6).
  TraitsResource current t6: (Smalltalk at: #T6).
  self resourceClassesAndTraits add: self t6.
  self assert: (self t6 isKindOf: Trait).
+ self assert: 'T1 + T2 @ {#m22Alias->#m22}' equals: self t6 traitComposition asString.
- self assert: self t6 traitComposition asString = 'T1 + T2 @ {#m22Alias->#m22}'.
  self assert: (self t6 methodDict keys includesAllOf: #(
  #localMethod:
  #m11
  #m12
  #m13
  #m21
  #m22
  #m22Alias
  )).
+ self assert: 2 equals: self t6 classSide methodDict size.
+ self assert: (self t6 classSide methodDict keys includes: #localClassSideMethod:) description: 'Missing selector #localClassSideMethod:'.
+ self assert: (self t6 classSide methodDict keys includes: #m2ClassSide:) description: 'Missing selector #m2ClassSide:'.!
- self assert: self t6 classSide methodDict size = 2.
- self assert: (self t6 classSide methodDict keys includesAllOf: #(#localClassSideMethod: #m2ClassSide: ))!