The Trunk: MultilingualTests-ul.33.mcz

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