Hi guys. I have a simple scenario where I create classes and then I remove
them. I just want to be sure the amount of metaclasses and Class subclasses
is correct.
Hence, I have the following test. What I don't understand is that the test
only works when I do a #removeAllObsoleteSubclasses to all classes.
So…my questions is, is that correct? I am doing something wrong? because I
would expect that #removeFromSystem takes care about that… this means that
there will be obsolete classes/metaclasses hanging around until I send
#removeAllObsoleteSubclasses ?
Even more…the values in WeakKeyToCollectionDictionary (the class of the
class var ObsoleteSubclasses in Behavior) are WeakArray… so they shouldn't
be bothering.
Sometimes the test is yellow…a wait a little bit and then if I run it is
greed again. When it fails, it is always the same, metaclassesBeforeTest has
1 less inst than Metaclass instanceCount. Sometimes it is the other way
around and it has 1 more instead of one less.
Thanks a lot for any clue…
testXXX
"Tests materialization of a hierarchy of classes that are not defined in
the image and classes that indeed are defined. In addition we test to
correctly create the necessary amount of classes and metaclasses."
| classes a b c d metaclassesBeforeTest classSubclassesBeforeTest |
3 timesRepeat: [Smalltalk garbageCollect].
metaclassesBeforeTest := Metaclass instanceCount.
classSubclassesBeforeTest := Class allSubclasses size.
a := Object subclass: #Xaaa instanceVariableNames: ''
classVariableNames: '' poolDictionaries: '' category: ''.
b := a subclass: #Xbbb instanceVariableNames: ''
classVariableNames: '' poolDictionaries: '' category: ''.
c := a subclass: #Xccc instanceVariableNames: '' classVariableNames:
'' poolDictionaries: '' category: ''.
d := Date subclass: #Xddd instanceVariableNames: ''
classVariableNames: '' poolDictionaries: '' category: ''.
classes := Array with: a with: b with: c with: d.
classes do: [ :aClassOrTrait | aClassOrTrait removeFromSystem ].
classes := nil.
a := b := c := d := nil.
6 timesRepeat: [Smalltalk garbageCollect].
Smalltalk allClasses do: [:each | each removeAllObsoleteSubclasses].
self assert: metaclassesBeforeTest = Metaclass instanceCount .
self assert: classSubclassesBeforeTest = Class allSubclasses size.
--
Mariano
http://marianopeck.wordpress.com
