[squeak-dev] The Trunk: KernelTests-ar.127.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 31 14:54:14 UTC 2009


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




More information about the Squeak-dev mailing list