Marcel Taeumel uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-mt.292.mcz==================== Summary ====================
Name: KernelTests-mt.292
Author: mt
Time: 14 April 2015, 9:43:37.143 am
UUID: ed0c5020-a0e5-c740-91af-5590f79f96c0
Ancestors: KernelTests-ul.291
Test added for checking whether some class organization has special categories in it.
=============== Diff against KernelTests-ul.291 ===============
Item was added:
+ ----- Method: CategorizerTest>>testNoSpecialCategories (in category 'testing') -----
+ testNoSpecialCategories
+
+ SystemNavigation allClasses do: [:class |
+ {class. class class} do: [:classOrMetaClass |
+ self
+ assert: (classOrMetaClass organization categories includes: Categorizer allCategory) not
+ description: ('{1} must not have the all-category in its organization.' format: {class name}).
+ self
+ assert: (classOrMetaClass organization isEmpty or: [
+ (classOrMetaClass organization categories includes: Categorizer nullCategory) not])
+ description: ('{1} must not have the null-category in its organization.' format: {class name}).]].!