"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#FileOpenTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Tests-Regression'

!

!FileOpenTest methodsFor:'tests'!

createWithSize10:fileName

    "helper"

    (fileName asFilename exists) ifTrue:[

        fileName asFilename delete

    ].

    fileName asFilename writeStream 

        nextPutAll:'1234567890';

        close.

    self assert:(fileName asFilename exists).

    self assert:(fileName asFilename fileSize == 10).

    "

     self new createWithSize10:'xxx1'

    "

!

testCreate1

    "create a new file (initially not existing)"

    |h|

    ('xxx1' asFilename exists) ifTrue:[

        'xxx1' asFilename delete

    ].

    h := OperatingSystem createFileForReadWrite:'xxx1'.

    self assert:(h notNil).

    self assert:(h isValid).

    OperatingSystem isMSDOSlike ifTrue:[

        self assert:(h address ~~ 0).

    ].

    h close.

    self assert:(h isValid not).

    OperatingSystem isMSDOSlike ifTrue:[

        self assert:(h address == 0).

    ].

    self assert:('xxx1' asFilename exists).

    self assert:('xxx1' asFilename fileSize == 0).

    'xxx1' asFilename delete

    "

     self new testCreate1

    "

    "Modified: / 12.8.1998 / 13:29:55 / cg"

!

testCreate2

    "create a file; checks if the file is truncated if already existing"

    |h|

    self createWithSize10:'xxx1'.

    h := OperatingSystem createFileForReadWrite:'xxx1'.

    self assert:(h notNil).

    self assert:(h isValid).

    OperatingSystem isMSDOSlike ifTrue:[

        self assert:(h address ~~ 0).

    ].

    h close.

    self assert:(h isValid not).

    OperatingSystem isMSDOSlike ifTrue:[

        self assert:(h address == 0).

    ].

    self assert:('xxx1' asFilename exists).

    self assert:('xxx1' asFilename fileSize == 0).

    "

     self new testCreate2

    "

    "Modified: / 12.8.1998 / 13:29:55 / cg"

!

testFailCreate1

    "try to create an uncreatable new file (directory not existing)"

    |fn|

    fn := (('.' asFilename construct:'foo')  construct:'bar') construct:'xxx1'.

    self 

        should:[

            OperatingSystem createFileForReadWrite:fn name]

        raise:(OSErrorHolder nonexistentSignal).

    "/ raised signal should be a child of inaccessibleSignal

    self 

        should:[

            OperatingSystem createFileForReadWrite:fn name]

        raise:(OSErrorHolder nonexistentSignal ).

    "/ raised signal should be a child of OsError

    self 

        should:[

            OperatingSystem createFileForReadWrite:fn name]

        raise:(OsError ).

    "

     self new testFailCreate1

    "

    "Modified: / 12.8.1998 / 13:29:55 / cg"

!

testFailOpen1

    "open a non-existing file; must fail"

    |h|

    'xxx2' asFilename delete.

    self 

        should:[

                h := OperatingSystem openFileForRead:'xxx2'.]

        raise:(OSErrorHolder nonexistentSignal).

    "

     self new testFailOpen1

    "

    "Modified: / 12.8.1998 / 13:29:55 / cg"

!

testOpen1

    |h|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForRead:'xxx2'.

    self assert:(h notNil).

    self assert:(h isValid).

    OperatingSystem isMSDOSlike ifTrue:[

        self assert:(h address ~~ 0).

    ].

    h close.

    self assert:(h isValid not).

    OperatingSystem isMSDOSlike ifTrue:[

        self assert:(h address == 0).

    ].

    'xxx2' asFilename delete.

    "

     self new testOpen1

    "

    "Modified: / 12.8.1998 / 13:29:55 / cg"

! !

!FileOpenTest class methodsFor:'documentation'!

version

    ^ '$Header$'

! !