"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#FileOpenTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Streams'

!

!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"

!

testFailOpen2

    "open a non-existing file for writing; must fail"

    |h|

    'xxx2' asFilename delete.

    self

	should:[

		h := OperatingSystem openFileForWrite:'xxx2'.]

	raise:(OSErrorHolder nonexistentSignal).

    "

     self new testFailOpen2

    "

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

!

testOpen1

    "open an existing file for reading"

    |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).

    ].

    self assert:('xxx2' asFilename fileSize == 10).   "/ should not change size

    'xxx2' asFilename delete.

    "

     self new testOpen1

    "

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

!

testOpen2

    "open an existing file for writing; should be truncated"

    |h|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForWrite:'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).

    ].

    self assert:('xxx2' asFilename fileSize == 10).   "/ should not change size

    'xxx2' asFilename delete.

    "

     self new testOpen2

    "

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

!

testPosition1

    |h pos buffer nBytesRead|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForRead:'xxx2'.

    buffer := ExternalBytes new:10.

    pos := h seekTo:1 from:#begin.

    self assert:(pos == 1).

    nBytesRead := h readBytes:9 into:buffer startingAt:1.

    pos := h seekTo:0 from:#current.

    self assert:(pos == 10).

    h close.

    self assert:(nBytesRead == 9).

    self assert:(buffer asString startsWith: '234567890').

    'xxx2' asFilename delete.

    "

     self new testPosition1

    "

!

testPosition2

    |h pos buffer nBytesRead|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForRead:'xxx2'.

    buffer := ExternalBytes new:10.

    pos := h seekTo:0 from:#begin.

    self assert:(pos == 0).

    pos := h seekTo:1 from:#begin.

    self assert:(pos == 1).

    pos := h seekTo:2 from:#current.

    self assert:(pos == 3).

    nBytesRead := h readBytes:7 into:buffer startingAt:1.

    h close.

    self assert:(nBytesRead == 7).

    self assert:(buffer asString startsWith: '4567890').

    'xxx2' asFilename delete.

    "

     self new testPosition2

    "

!

testPosition3

    |h pos buffer nBytesRead|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForRead:'xxx2'.

    buffer := ExternalBytes new:10.

    pos := h seekTo:0 from:#end.

    self assert:(pos == 10).

    pos := h seekTo:-2 from:#current.

    self assert:(pos == 8).

    nBytesRead := h readBytes:2 into:buffer startingAt:1.

    h close.

    self assert:(nBytesRead == 2).

    self assert:(buffer asString startsWith: '90').

    'xxx2' asFilename delete.

    "

     self new testPosition3

    "

!

testPosition4

    |h pos buffer nBytesRead|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForRead:'xxx2'.

    buffer := ExternalBytes new:10.

    pos := h seekTo:-2 from:#end.

    self assert:(pos == 8).

    nBytesRead := h readBytes:2 into:buffer startingAt:1.

    h close.

    self assert:(nBytesRead == 2).

    self assert:(buffer asString startsWith: '90').

    'xxx2' asFilename delete.

    "

     self new testPosition4

    "

!

testRead1

    "open an existing file for reading; should read 10 chars"

    |h buffer nBytesRead|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForRead:'xxx2'.

    buffer := ExternalBytes new:10.

    nBytesRead := h readBytes:10 into:buffer startingAt:1.

    h close.

    self assert:(nBytesRead == 10).

    self assert:(buffer asString = '1234567890').

    'xxx2' asFilename delete.

    "

     self new testRead1

    "

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

!

testRead2

    "open an existing file for reading; should read 10 chars"

    |h buffer nBytesRead|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForRead:'xxx2'.

    buffer := ExternalBytes new:20.

    nBytesRead := h readBytes:20 into:buffer startingAt:1.

    h close.

    self assert:(nBytesRead == 10).

    self assert:(buffer asString startsWith:'1234567890').

    'xxx2' asFilename delete.

    "

     self new testRead2

    "

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

!

testWrite1

    "create a new file (initially not existing); write some data into it"

    |h buffer nBytesWritten|

    buffer := ExternalBytes new:10.

    buffer replaceFrom:1 with:'1234567890'.

    ('xxx1' asFilename exists) ifTrue:[

	'xxx1' asFilename delete

    ].

    h := OperatingSystem createFileForReadWrite:'xxx1'.

    nBytesWritten := h writeBytes:10 from:buffer startingAt:1.

    h close.

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

    self assert:('xxx1' asFilename contentsOfEntireFile = '1234567890').

    'xxx1' asFilename delete

    "

     self new testWrite1

    "

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

!

xtestFailCreate1

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

    |fn|

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

    OperatingSystem createFileForReadWrite:fn name

    "

     self new xtestFailCreate1

    "

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

!

xtestFailOpen2

    "open a non-existing file for writing; must fail"

    |h|

    'xxx2' asFilename delete.

    h := OperatingSystem openFileForWrite:'xxx2'.

    h close

    "

     self new xtestFailOpen2

    "

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

!

xtestFinalization1

    "open an existing file; check if GC closes it"

    |h|

    self createWithSize10:'xxx2'.

    h := OperatingSystem openFileForWrite:'xxx2'.

    self assert:(h notNil).

    self assert:(h isValid).

    OperatingSystem isMSDOSlike ifTrue:[

	self assert:(h address ~~ 0).

    ].

    h := nil.

    ObjectMemory tenure.

    ObjectMemory garbageCollect.

    self assert:(h isValid not).

    OperatingSystem isMSDOSlike ifTrue:[

	self assert:(h address == 0).

    ].

    self assert:('xxx2' asFilename fileSize == 10).   "/ should not change size

    'xxx2' asFilename delete.

    "

     self new testFinalization1

    "

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

! !

!FileOpenTest class methodsFor:'documentation'!

version