The Trunk: MultilingualTests-ul.14.mcz

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
  !