test[S8Ref] char

"should accept a String, and write the first char's code"
| val  buf |
buf := S8Ref current alloc: #char value: $a.
$a asciiValue = buf get ifFalse: [ self error: 'Wrong char value (',buf get,')' ].

buf := S8Ref current alloc: #uchar value: $a.
$a asciiValue = buf get ifFalse: [ self error: 'Wrong uchar value' ].