The Trunk: MultilingualTests-mha.2.mcz

Michael Haupt uploaded a new version of MultilingualTests to project The Trunk:
http://source.squeak.org/trunk/MultilingualTests-mha.2.mcz

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

Name: MultilingualTests-mha.2
Author: mha
Time: 12 October 2009, 9:40:42 am
UUID: 3d636076-98b9-47e2-bb43-16a9c6189370
Ancestors: MultilingualTests-nice.1

made MultiByteFileStream test clean up properly after itself

=============== Diff against MultilingualTests-nice.1 ===============

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 |
- | foo |
 
+ fileName := 'foobug6933'.
+
+ foo := MultiByteFileStream forceNewFileNamed: fileName.
- foo := MultiByteFileStream forceNewFileNamed: 'foobug6933'.
  [foo binary.
  foo nextPutAll: #(1 2 3 4) asByteArray] ensure: [foo close].
 
+ foo := MultiByteFileStream oldFileNamed: fileName.
- foo := MultiByteFileStream oldFileNamed: 'foobug6933'.
  [foo binary.
+ self assert: (foo upTo: 3) = #(1 2 ) asByteArray] ensure: [foo close].
+
+ FileDirectory default deleteFileNamed: fileName!
- self assert: (foo upTo: 3) = #(1 2 ) asByteArray] ensure: [foo close]!