test[libc] Memory

"Allocating a buffer"
| buffer size |
size := 10.
buffer := LibC current malloc: size.
buffer isNull ifTrue: [ self error: 'Wrong result' ].
buffer size: size.
buffer writeCString: 0 value: #hello.
buffer readCString = #hello ifFalse: [ self error: 'Wrong contents' ].
buffer size: 0.
LibC current free: buffer.