The Inbox: MultilingualTests-tonyg.22.mcz

> A new version of MultilingualTests was added to project The Inbox:
> http://source.squeak.org/inbox/MultilingualTests-tonyg.22.mcz
>
> ==================== Summary ====================
>
> Name: MultilingualTests-tonyg.22
> Author: tonyg
> Time: 23 February 2017, 2:01:47.977527 pm
> UUID: 76769ce3-a15d-46a7-acbd-8acfbd56fcc9
> Ancestors: MultilingualTests-pre.21
>
> Test cases from Mantis #4665.
>
> =============== Diff against MultilingualTests-pre.21 ===============
>
> Item was added:
> + ----- Method: MultiByteFileStreamTest>>testUpToAllAscii (in category
> 'testing') -----
> + testUpToAllAscii
> + "This test case is inspired by Mantis #4665."
> + "Compare to testUpToAllUtf."
> +
> + | in out fn resultA resultB |
> + fn :='testUpToAll.in'.
> + out := FileDirectory default forceNewFileNamed: fn.
> + out nextPutAll: 'A<'. "Encodes to byte sequence 413C"
> + out close.
> +
> + in := FileDirectory default readOnlyFileNamed: fn.
> + resultA := in upToAll: '<'.
> + in close.
> +
> + in := FileDirectory default readOnlyFileNamed: fn.
> + resultB := in upTo: $<.
> + in close.
> +
> + self assert: resultA = resultB
> + !
>
> Item was added:
> + ----- Method: MultiByteFileStreamTest>>testUpToAllUtf (in category
> 'testing') -----
> + testUpToAllUtf
> + "This test case is adapted from Mantis #4665."
> + "MultiByteFileStream was relying on PositionableStream>>#match: to
> discover the position immediately following the delimiter collection. It
> would then use #next: to retrieve a number of *characters* computed as the
> difference in stream positions. However, stream positions are measured in
> *bytes*, not characters, so this would lead to misalignment when the skipped
> text included UTF-8 encoded characters."
> +
> + | in out fn resultA resultB |
> + fn :='testUpToAll.in'.
> + out := FileDirectory default forceNewFileNamed: fn.
> + out nextPutAll: 231 asCharacter asString, '<'. "Encodes to byte sequence
> C3A73C"
> + out close.
> +
> + in := FileDirectory default readOnlyFileNamed: fn.
> + resultA := in upToAll: '<'.
> + in close.
> +
> + in := FileDirectory default readOnlyFileNamed: fn.
> + resultB := in upTo: $<.
> + in close.
> +
> + self assert: resultA = resultB
> + !
>
>
>