Levente Uzonyi uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-ul.33.mcz
==================== Summary ====================
Name: MultilingualTests-ul.33 Author: ul Time: 2 July 2018, 11:35:48.085236 pm UUID: 27e2687a-0b43-4c8a-891a-c6011ba19b07 Ancestors: MultilingualTests-ul.32
MultiByteFileStreamTest: - fix 2 more cases
=============== Diff against MultilingualTests-ul.32 ===============
Item was changed: ----- Method: MultiByteFileStreamTest>>testUpToPositionNonZero (in category 'testing') ----- testUpToPositionNonZero "Ensures that upToPosition: behaves correctly with a non-zero-length read." - | in out fn | - fn :='testUpToPosition.in'. - out := FileDirectory default forceNewFileNamed: fn. - out nextPutAll: 231 asCharacter asString, 'a<b'. - out close.
+ fileName := 'testUpToPosition.in'. + FileDirectory default forceNewFileNamed: fileName do: [ :out | + out nextPutAll: 231 asCharacter asString, 'a<b' ]. + + FileDirectory default readOnlyFileNamed: fileName do: [ :in | + self assert: in next = 231 asCharacter. + self assert: (in upToPosition: in position + 2) = 'a<'. + self assert: in next = $b ]! - in := FileDirectory default readOnlyFileNamed: fn. - self assert: in next = 231 asCharacter. - self assert: (in upToPosition: in position + 2) = 'a<'. - self assert: in next = $b.!
Item was changed: ----- Method: MultiByteFileStreamTest>>testUpToPositionZero (in category 'testing') ----- testUpToPositionZero "Ensures that upToPosition: behaves correctly with a zero-length read." - | in out fn | - fn :='testUpToPosition.in'. - out := FileDirectory default forceNewFileNamed: fn. - out nextPutAll: 231 asCharacter asString, 'a<b'. - out close.
+ fileName := 'testUpToPosition.in'. + FileDirectory default forceNewFileNamed: fileName do: [ :out | + out nextPutAll: 231 asCharacter asString, 'a<b' ]. + + FileDirectory default readOnlyFileNamed: fileName do: [ :in | + self assert: in next = 231 asCharacter. + self assert: (in upToPosition: in position) = ''. + self assert: in next = $a ]! - in := FileDirectory default readOnlyFileNamed: fn. - self assert: in next = 231 asCharacter. - self assert: (in upToPosition: in position) = ''. - self assert: in next = $a.!
packages@lists.squeakfoundation.org