[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.
].