The Trunk: TraitsTests-fbs.12.mcz

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

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

Name: TraitsTests-fbs.12
Author: fbs
Time: 6 November 2013, 6:42:36.843 pm
UUID: baabd372-cbd4-2343-a4b7-4c42c2a111a8
Ancestors: TraitsTests-fbs.11

More #shouldnt:raise: Error fixes.

=============== Diff against TraitsTests-fbs.11 ===============

Item was changed:
  ----- Method: ClassTraitTest>>testChanges (in category 'testing') -----
  testChanges
  "Test the most important features to ensure that
  general functionality of class traits are working."
 
  "self run: #testChanges"
 
  | classTrait |
  classTrait := self t1 classTrait.
  classTrait compile: 'm1ClassSide ^17' classified: 'mycategory'.
 
  "local selectors"
  self assert: (classTrait includesLocalSelector: #m1ClassSide).
  self deny: (classTrait includesLocalSelector: #otherSelector).
 
  "propagation"
  self assert: (self t5 classSide methodDict includesKey: #m1ClassSide).
  self assert: (self c2 class methodDict includesKey: #m1ClassSide).
- self shouldnt: [self c2 m1ClassSide] raise: Error.
  self assert: self c2 m1ClassSide = 17.
 
  "category"
  self assert: (self c2 class organization categoryOfElement: #m1ClassSide)
  = 'mycategory'.
 
  "conflicts"
  self t2 classSide compile: 'm1ClassSide' classified: 'mycategory'.
  self assert: (self c2 class methodDict includesKey: #m1ClassSide).
  self deny: (self c2 class includesLocalSelector: #m1ClassSide).
  self should: [self c2 m1ClassSide] raise: Error.
 
  "conflict category"
  self assert: (self c2 class organization categoryOfElement: #m1ClassSide)
  =  #mycategory!