The Trunk: KernelTests-mt.340.mcz

Marcel Taeumel uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-mt.340.mcz

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

Name: KernelTests-mt.340
Author: mt
Time: 28 May 2018, 10:48:39.54437 am
UUID: f7b17ce4-7d8b-4a4d-9da9-da8b9046d970
Ancestors: KernelTests-eem.339

New test for uniclass creation. Appendix to Kernel-mt.1172

=============== Diff against KernelTests-eem.339 ===============

Item was added:
+ ----- Method: ClassBuilderTest>>testNewUniclass (in category 'testing - uniclass') -----
+ testNewUniclass
+
+ baseClass := Object subclass: self baseClassName
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: self categoryNameForTemporaryClasses.
+ "Note that you have to denote a new base class to be capable of spawning uni classes. See Object class >> #isUniClass for more information."
+ baseClass class
+ compile: ('isUniClass\ ^ self ~~ {1}' withCRs format: {self baseClassName})
+ classified: 'instance creation'.
+
+ subClass := baseClass newSubclass.
+
+ self
+ assert: subClass isUniClass;
+ assert: subClass environment ~~ baseClass environment;
+ assert: subClass category = Object categoryForUniclasses;
+ assert: (baseClass organization categoryOfElement: subClass name) isNil.
+
+ self deny: subClass isObsolete.
+ subClass removeFromSystem.
+ self assert: subClass isObsolete.!