[squeak-dev] The Trunk: MultilingualTests-dtl.31.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Feb 4 22:48:56 UTC 2018


David T. Lewis uploaded a new version of MultilingualTests to project The Trunk:
http://source.squeak.org/trunk/MultilingualTests-dtl.31.mcz

==================== Summary ====================

Name: MultilingualTests-dtl.31
Author: dtl
Time: 4 February 2018, 5:48:55.726594 pm
UUID: 7f0ac050-db7b-4ecc-80d8-9617409af3be
Ancestors: MultilingualTests-tonyg.30, MultilingualTests-cbc.19

Merge MultilingualTests-cbc.19

=============== Diff against MultilingualTests-tonyg.30 ===============

Item was changed:
  ----- Method: MultiByteFileStreamTest>>testLineEndingChunk (in category 'testing') -----
  testLineEndingChunk
+ 	| failures |
- 
  	fileName := 'foolinend.txt'.
+ 	failures := OrderedCollection new.
  	MultiByteFileStream forceNewFileNamed: fileName do: [ :file |
  		file 
  			wantsLineEndConversion: false;
  			nextPutAll: 'line 1'; cr;
  			nextPutAll: 'line 2'; crlf;
  			nextPutAll: 'line 3'; lf;
  			nextPutAll: 'line 4'; nextPut: $!! ].
  	{
  		{#cr.  'line 1' , String cr , 'line 2' , String cr , 'line 3' , String cr , 'line 4'}.
  		{#lf.  'line 1' , String cr , 'line 2' , String cr , 'line 3' , String cr , 'line 4'}.
  		{#crlf.  'line 1' , String cr , 'line 2' , String cr , 'line 3' , String cr , 'line 4'}.
  		{nil.  'line 1' , String cr , 'line 2' , String crlf , 'line 3' , String lf , 'line 4'}
  	} do: [:lineEndingResult |
+ 		MultiByteFileStream oldFileNamed: fileName do: [ :file | | actual |
- 		MultiByteFileStream oldFileNamed: fileName do: [ :file |
  			file lineEndConvention: lineEndingResult first.
+ 			lineEndingResult last = (actual := file nextChunk) ifFalse: [
+ 				failures add: (lineEndingResult copyWith: actual).
+ 				].
+ 			] ].
+ 	self assert: failures isEmpty!
- 			self assert: lineEndingResult last equals: file nextChunk ] ]!



More information about the Squeak-dev mailing list