The Trunk: MultilingualTests-tonyg.28.mcz

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.!