The Trunk: KernelTests-ar.127.mcz

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

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

Name: KernelTests-ar.127
Author: ar
Time: 31 December 2009, 3:53:50 am
UUID: 0ab6e7cb-7cfb-854f-995b-1c09fd3d5348
Ancestors: KernelTests-nice.126

Correct a newly failing test which didn't account for eventual trait / classtrait instances.

=============== Diff against KernelTests-nice.126 ===============

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