A new version of MultilingualTests was added to project The Inbox: http://source.squeak.org/inbox/MultilingualTests-cbc.45.mcz
==================== Summary ====================
Name: MultilingualTests-cbc.45 Author: cbc Time: 29 December 2023, 1:28:27.626425 pm UUID: 0cb074ef-e36a-6041-b9e5-01e4a1b0602e Ancestors: MultilingualTests-lrnp.44
Added MultiByteFileStreamTest>>testPeek to show where #peek: does not work correctly for #binary files. Weird edge case.
=============== Diff against MultilingualTests-lrnp.44 ===============
Item was added: + ----- Method: MultiByteFileStreamTest>>testPeek (in category 'tests') ----- + testPeek + | fileName | + fileName := 'fooPeek.txt'. + MultiByteFileStream forceNewFileNamed: fileName do: [ :file | + file + nextPutAll: '12345678' ]. + "Testing when ASCII" + MultiByteFileStream oldFileNamed: fileName do: [ :file | + self assert: '1234' = (file peek: 4). + self assert: '1234' = (file peek: 4). "This fails in vanilla 6.0!!" + ]. + "Testing when BINARY" + MultiByteFileStream oldFileNamed: fileName do: [ :file | + file binary. + self assert: '1234' = (file peek: 4). + self assert: '1234' = (file peek: 4). "This fails in vanilla 6.0!!" + ]. + !
squeak-dev@lists.squeakfoundation.org