[squeak-dev] The Trunk: MultilingualTests-ul.33.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 2 21:48:26 UTC 2018


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



More information about the Squeak-dev mailing list