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

test[S8ObjC] globals

SwikiCodeRobot @> #testS8ObjCGlobals
"Test globals access"
| pool |
pool := (ObjCClass classNamed: #NSAutoreleasePool in: #Foundation) newInstanceHandle.
(ObjCClass named: #NSObject) isNil ifTrue: [ self error: 'NSObject missing' ].
(ObjCClass classNamed: #NotPresent) notNil ifTrue: [
	self error: 'This should not happen'
].