[squeak-dev] The Trunk: MultilingualTests-nice.1.mcz

Nicolas Cellier uploaded a new version of MultilingualTests to project The Trunk:
http://source.squeak.org/trunk/MultilingualTests-nice.1.mcz

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

Name: MultilingualTests-nice.1
Author: nice
Time: 4 October 2009, 8:57:57 am
UUID: 2102586c-e118-48bd-813d-c7c8b3612255
Ancestors:

Put tests from http://bugs.squeak.org/view.php?id=6933
in this package.

==================== Snapshot ====================

SystemOrganization addCategory: #'MultilingualTests-TextConversion'!

TestCase subclass: #MultiByteFileStreamTest
        instanceVariableNames: ''
        classVariableNames: ''
        poolDictionaries: ''
        category: 'MultilingualTests-TextConversion'!

----- Method: MultiByteFileStreamTest>>testBinaryUpTo (in category 'testing') -----
testBinaryUpTo
        "This is a non regression test for bug http://bugs.squeak.org/view.php?id=6933"
       
        | foo |
       
        foo := MultiByteFileStream forceNewFileNamed: 'foobug6933'.
        [foo binary.
        foo nextPutAll: #(1 2 3 4) asByteArray] ensure: [foo close].

        foo := MultiByteFileStream oldFileNamed: 'foobug6933'.
        [foo binary.
        self assert: (foo upTo: 3) = #(1 2 ) asByteArray] ensure: [foo close]!