Patrick Rein uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-pre.27.mcz
==================== Summary ====================
Name: MultilingualTests-pre.27 Author: pre Time: 31 August 2017, 6:19:18.949747 pm UUID: e3fa7680-679e-0a4f-b16d-5d8b3f205eda Ancestors: MultilingualTests-pre.26
Minor changes to the tests for MultiByteFileStream checking for correct latin1 conversion for the fixed size UTF encodings and working on the LineEndConvention test to read in through MultiByteFileStream.
=============== Diff against MultilingualTests-pre.26 ===============
Item was changed: ----- Method: MultiByteFileStreamTest>>testLineEndConvention:withConverter:ifFail: (in category 'helpers') ----- testLineEndConvention: lineEndConvention withConverter: textConverterClass ifFail: failBlock
| expectedResult result | [ MultiByteFileStream forceNewFileNamed: fileName do: [ :file | file converter: textConverterClass new; lineEndConvention: lineEndConvention; cr; nextPut: Character cr; nextPutAll: String cr; nextPutAll: String cr asWideString ]. + result := MultiByteFileStream oldFileNamed: fileName do: [ :file | + file + converter: textConverterClass new; + contents ]. - result := StandardFileStream oldFileNamed: fileName do: [ :file | - file contents ]. expectedResult := String streamContents: [ :stream | 4 timesRepeat: [ stream perform: lineEndConvention ] ]. result = expectedResult ifFalse: [ failBlock value: expectedResult asByteArray value: result asByteArray ] ] on: Error do: [ :err | failBlock value: err messageText value: err messageText ]!
Item was changed: ----- Method: MultiByteFileStreamTest>>testLineEndConversion (in category 'testing') ----- testLineEndConversion
| failures | fileName := 'foolinendconversion.txt'. failures := OrderedCollection new. TextConverter allSubclassesDo: [ :textConverterClass | textConverterClass encodingNames ifNotEmpty: [ #(cr lf crlf) do: [ :lineEndConvention | self testLineEndConvention: lineEndConvention withConverter: textConverterClass ifFail: [ :expectedResult :result | failures add: { textConverterClass. lineEndConvention. expectedResult. result } ] ] ] ]. self assert: failures isEmpty. "The code below is here to help you see why those cases fail" failures do: [ :failure | self testLineEndConvention: failure second withConverter: failure first ifFail: [ :expectedResult :result | self halt ] ].!
Item was added: + ----- Method: MultiByteFileStreamTest>>testNextPutAllUtfsStartingAt (in category 'testing') ----- + testNextPutAllUtfsStartingAt + + | result | + fileName := 'foonextputallstartingat.txt'. + {'utf-16' . #[0 64 216 0 220 0 216 0 220 1 216 0 220 2] . + 'utf-32'. #[0 0 0 64 0 1 0 0 0 1 0 1 0 1 0 2]} + pairsDo: [:encodingName :encodingResult | + MultiByteFileStream forceNewFileNamed: fileName do: [ :file | | string | + file converter: (TextConverter newForEncoding: encodingName). + string := self unicodeString. + file + next: 2 putAll: string startingAt: 1; + next: 1 putAll: string startingAt: 3; + next: 1 putAll: string startingAt: 4 ]. + result := StandardFileStream readOnlyFileNamed: fileName do: [ :file | + file binary; contents ]. + + "See for example: https://unicode-table.com/de/10000/ --pre" + self assert: encodingResult equals: result] + + + !
Item was added: + ----- Method: MultiByteFileStreamTest>>unicodeString (in category 'fixtures') ----- + unicodeString + + ^ String newFrom: (#(64 65536 65537 65538) collect: [:n | Character codePoint: n])!