test[S8ObjC] cast-string

"Test String -> NSString casting works"
| id hello |
hello := 'hello world'.
id := ID value: hello.
(id getClassName includes: #String) ifFalse: [ self error: 'Not a NSString' ].
(id handle value: #UTF8String) = hello ifFalse: [
	self error: 'Wrong value'
].#ok