[Pkg] The Trunk: KernelTests-ar.128.mcz

[commits at source.squeak.org]

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

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

Name: KernelTests-ar.128
Author: ar
Time: 1 January 2010, 7:21:05 am
UUID: 07eeffbc-3c60-5f4b-a1c3-03335122f508
Ancestors: KernelTests-ar.127

Making traits unloadable: Slight change to BasicBehaviorClassMetaclassTest to function correctly in the absence of traits.

=============== Diff against KernelTests-ar.127 ===============

Item was changed:
  ----- Method: BasicBehaviorClassMetaclassTest>>testClassDescriptionAllSubInstances (in category 'testing') -----
  testClassDescriptionAllSubInstances
  	"self run: #testClassDescriptionAllSubInstances"
  
  	| cdNo clsNo metaclsNo |
  	cdNo := ClassDescription allSubInstances size.
  	clsNo := Class allSubInstances size .
  	metaclsNo := Metaclass allSubInstances size.
- 	"When traits are present, discount all traits if necessary"
- 	Smalltalk at: #Trait ifPresent:[:aClass|
- 		(aClass inheritsFrom: ClassDescription) ifTrue:[
- 			cdNo := cdNo - Trait instanceCount - ClassTrait instanceCount.
- 		].
- 	].
- 	self assert: cdNo = (clsNo + metaclsNo).
- 
- 	
- 	
- 	
- 
- 
- 
- 	
- 	
  
+ 	"When traits are present, discount all traits if necessary"
+ 	Smalltalk at: #Trait ifPresent:[:aClass|
+ 		(aClass inheritsFrom: ClassDescription) 
+ 			ifTrue:[cdNo := cdNo - aClass instanceCount]].
+ 	Smalltalk at: #ClassTrait ifPresent:[:aClass|
+ 		(aClass inheritsFrom: ClassDescription) 
+ 			ifTrue:[cdNo := cdNo - aClass instanceCount]].
+ 
+ 	self assert: cdNo = (clsNo + metaclsNo).!
- 	!