UTF16TextConverter
Last updated at 8:57 pm UTC on 11 December 2015
UTF16TextConverter
testByteOrders
|converter originalText bytes decodedText |
originalText := 'test'.
converter := UTF16TextConverter new.
"Default (ie useLittleEndian instvar nil)"
bytes := (originalText convertToWithConverter: converter).
decodedText := bytes convertFromWithConverter: converter.
self assert: originalText equals: decodedText.
"Little-endian"
converter useLittleEndian: true.
bytes := (originalText convertToWithConverter: converter).
decodedText := bytes convertFromWithConverter: converter.
self assert: originalText equals: decodedText.
"Big-endian"
converter useLittleEndian: false.
bytes := (originalText convertToWithConverter: converter).
decodedText := bytes convertFromWithConverter: converter.
self assert: originalText equals: decodedText.