David T. Lewis uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-tonyg.28.mcz
==================== Summary ====================
Name: MultilingualTests-tonyg.28 Author: tonyg Time: 22 January 2018, 11:12:45.060447 am UUID: 99c7ed46-dc44-4c3f-96fe-840fae383b75 Ancestors: MultilingualTests-pre.27
New test cases for MultiByteFileStream upToAll: and upToPosition:, exposing a bug in the latter.
=============== Diff against MultilingualTests-pre.27 ===============
Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllNonZeroLength (in category 'testing') ----- + testUpToAllNonZeroLength + "Ensures that upToAll: correctly skips over the nonzero-length separator." + | in out fn | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 231 asCharacter asString, 'a<b<<c'. + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + self assert: in next = 231 asCharacter. + self assert: (in upToAll: '<<') = 'a<b'. + self assert: in next = $c.!
Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllZeroLength (in category 'testing') ----- + testUpToAllZeroLength + "Ensures that upToAll: behaves correctly with a zero-length separator." + | in out fn | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 231 asCharacter asString, 'a<b<<c'. + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + self assert: in next = 231 asCharacter. + self assert: (in upToAll: '') = ''. + self assert: in next = $a.!
Item was added: + ----- 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. + + 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 added: + ----- 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. + + in := FileDirectory default readOnlyFileNamed: fn. + self assert: in next = 231 asCharacter. + self assert: (in upToPosition: in position) = ''. + self assert: in next = $a.!