[View]  [Edit]  [Lock]  [References]  [Attachments]  [History]  [Home]  [Changes]  [Search]  [Help] 

test[s8] classes

"Classes should not be empty"
Smalltalk classes isEmpty ifTrue: [
    self print: '// Empty classes, this should not happen'.
    self abort
]

"Object class must exists"
Object isNil ifTrue: [
    self print: '// Object is nil, this should not happen'.
    self abort
]