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.<br>Hence, I have the following test. What I don&#39;t understand is that the test only works when I do a #removeAllObsoleteSubclasses to all classes.<br>
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 ?<br>
<br>Even more�the values in WeakKeyToCollectionDictionary (the class of the class var ObsoleteSubclasses in Behavior) are WeakArray� so they shouldn&#39;t be bothering. <br><br>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. <br>
<br>Thanks a lot for any clue�<br><br><br>testXXX<br>� &quot;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.&quot;<br>
����� <br>��� | classes a b c d metaclassesBeforeTest classSubclassesBeforeTest |<br><br>����� 3 timesRepeat: [Smalltalk garbageCollect].<br>����� metaclassesBeforeTest := Metaclass instanceCount.<br>����� classSubclassesBeforeTest := Class allSubclasses size.������ <br>
��������� <br>��� ��� a := Object subclass: #Xaaa instanceVariableNames: &#39;&#39; classVariableNames: &#39;&#39; poolDictionaries: &#39;&#39; category: &#39;&#39;.<br>���� ��� b := a subclass: #Xbbb instanceVariableNames: &#39;&#39; classVariableNames: &#39;&#39; poolDictionaries: &#39;&#39; category: &#39;&#39;.<br>
��� ��� c := a subclass: #Xccc instanceVariableNames: &#39;&#39; classVariableNames: &#39;&#39; poolDictionaries: &#39;&#39; category: &#39;&#39;.<br>��� ��� d := Date subclass: #Xddd instanceVariableNames: &#39;&#39; classVariableNames: &#39;&#39; poolDictionaries: &#39;&#39; category: &#39;&#39;.<br>
��� ��� classes := Array with: a with: b with: c with: d.<br>����� <br>�� ��� classes do: [ :aClassOrTrait | aClassOrTrait removeFromSystem ].<br>� ��� classes := nil.<br>���� ��� a := b := c := d := nil.<br>��� ��� 6 timesRepeat: [Smalltalk garbageCollect].<br>
��� Smalltalk allClasses do: [:each | each removeAllObsoleteSubclasses].<br>�� <br>��� ��� self assert: metaclassesBeforeTest� = Metaclass instanceCount� .<br>��� ��� self assert: classSubclassesBeforeTest = Class allSubclasses size.<br>
<br><br><br clear="all"><br>-- <br>Mariano<br><a href="http://marianopeck.wordpress.com" target="_blank">http://marianopeck.wordpress.com</a><br><br>