broken-test[S8ObjC] 011 Printing

"alloc NSObjects and print the result"
| cls object selector |
selector := #testString.
cls := ObjCClass named: "#NSObject" #JX8IosTest.
100 timesRepeat: [:i|
	self print: #allocating ,i.
	object := cls newInstanceHandle.
	self print: #allocated.
	self print: selector ,'=' ,((object value: selector) value: #UTF8String).
	self print: #printed.
	Smalltalk gc.
	self print: #gcted.
	self print: selector ,'=' ,((object value: selector) value: #UTF8String).
	self print: #printedAgain.
].
self print: #done.