Nov. 30, 2010
11:20 a.m.
fix fix fix :) Stef
I would even go further, the test UTF8TextConverterTest>>#testPutSingleCharacter is plain wrong, it seems to have been written as an afterthought:
testPutSingleCharacter | actual | actual := ByteArray streamContents: [ :stream | | converter | converter := UTF8TextConverter new. converter nextPut: $a toStream: stream. converter nextPut: (Unicode value: 16r20AC) toStream: stream ]. self assert: actual = #[97 0 0 32 172]
The correct result is #[97 226 130 172] !!
If you would give these bytes to any other system, they would never be able to decode them as UTF-8.