[View] [Edit] [Lock] [References] [Attachments] [History] [Home] [Changes] [Search] [Help]
test[coco8] 003 native class name access
"Verify that all native classes has proper names"
| natives handles src stream getName |
natives := NSObject withAllSubclasses.
handles := natives collect: [:each| each nativeClass ].
getName := [:objCls| JSCocoaController nativeClass nameOfClass: objCls ].
src := natives stream.
stream := handles stream.
[stream atEnd] whileFalse: [
"self print: src peek implementorName."
src peek implementorName = (getName value: stream next) ifFalse: [
self print: 'Name failure in ',src peek
].
src next.
].