[Pkg] The Trunk: MultilingualTests-ul.14.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of MultilingualTests to project The Trunk:
http://source.squeak.org/trunk/MultilingualTests-ul.14.mcz

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

Name: MultilingualTests-ul.14
Author: ul
Time: 31 January 2011, 2:48:54.024 am
UUID: a13c0bcc-b2dd-a446-833a-0315f98a3d83
Ancestors: MultilingualTests-ul.13

Added a widestring to MultiByteFileStreamTest >> #testNextPutAllStartingAt, otherwise it passes.

=============== Diff against MultilingualTests-ul.13 ===============

Item was changed:
  ----- Method: MultiByteFileStreamTest>>testNextPutAllStartingAt (in category 'testing') -----
  testNextPutAllStartingAt
  
  	| result |
  	fileName := 'foonextputallstartingat.txt'.
  	MultiByteFileStream forceNewFileNamed: fileName do: [ :file |
+ 		{ 'abcde' asWideString. 'abcde' } do: [ :string |
+ 			file 
+ 				next: 1 putAll: string startingAt: 5;
+ 				next: 3 putAll: string startingAt: 2;
+ 				next: 1 putAll: string startingAt: 1 ] ].
- 		file 
- 			next: 1 putAll: 'abcde' startingAt: 5;
- 			next: 3 putAll: 'abcde' startingAt: 2;
- 			next: 1 putAll: 'abcde' startingAt: 1 ].
  	result := StandardFileStream readOnlyFileNamed: fileName do: [ :file |
  		file binary; contents ].
+ 	self assert: #[101 98 99 100 97 101 98 99 100 97] equals: result
- 	self assert: #[101 98 99 100 97] equals: result
  !