The Trunk: KernelTests-ar.128.mcz

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