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!