Nicolas Cellier uploaded a new version of MultilingualTests to project The Trunk:
http://source.squeak.org/trunk/MultilingualTests-nice.7.mcz==================== Summary ====================
Name: MultilingualTests-nice.7
Author: nice
Time: 18 January 2010, 6:15:58.09 pm
UUID: 3ffe8a56-bfb8-5647-aad7-0b8cef128164
Ancestors: MultilingualTests-ar.6
Use ByteArray literals
=============== Diff against MultilingualTests-ar.6 ===============
Item was changed:
----- Method: MultiByteFileStreamTest>>testBinaryUpTo (in category 'testing') -----
testBinaryUpTo
"This is a non regression test for bug
http://bugs.squeak.org/view.php?id=6933"
| foo fileName |
fileName := 'foobug6933'.
foo := MultiByteFileStream forceNewFileNamed: fileName.
[foo binary.
+ foo nextPutAll: #[ 1 2 3 4 ]] ensure: [foo close].
- foo nextPutAll: #(1 2 3 4) asByteArray] ensure: [foo close].
foo := MultiByteFileStream oldFileNamed: fileName.
[foo binary.
+ self assert: (foo upTo: 3) = #[ 1 2 ]] ensure: [foo close].
- self assert: (foo upTo: 3) = #(1 2 ) asByteArray] ensure: [foo close].
FileDirectory default deleteFileNamed: fileName!