"Implementation of simple class test" TestCase subclass: #TestClasses instanceVariableNames: '' category: 'sunit-s8'! ! TestClasses methodsFor: 'test'! testClasses self assert: Smalltalk classes notEmpty! !