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

broken-test[S8ObjC] DNU

SwikiCodeRobot @> 380
"Force a DNU exception"
| ns pool |
pool := (ObjCClass classNamed: #NSAutoreleasePool in: #Foundation) newInstanceHandle.
ns := ID classNamed: #NSObject.
[	ns handle value: #dnuThisMessage
] on: Error do: [:ex|
	^self print: 'ok - ',ex toString stream nextLine
].