"{ NameSpace: RegressionTests }"

Object subclass:#FileStreamTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

!

!FileStreamTest class methodsFor:'tests'!

createTestFile

    "create a test file (100k size)"

    |f bytes|

    f := 'testFile' asFilename writeStream binary.

    bytes := ByteArray new:1024.

    1 to:bytes size do:[:i |

    ].

    100 timesRepeat:[

    ].

    f close.

    "

     self createTestFile

    "

    "Created: / 12.8.1998 / 13:25:25 / cg"

!

readFileExpecting:expect

    "read test file, expect n bytes"

    |f buffer n nRead|

    f := 'testFile' asFilename readStream binary.

    buffer := ByteArray new:128.

    n := 0.

    [f atEnd] whileFalse:[

    ].

    f close.

    expect ~~ n ifTrue:[

    ].

    "Created: / 12.8.1998 / 13:29:41 / cg"

    "Modified: / 12.8.1998 / 13:36:40 / cg"

!

test1

    "read a file - check count read with files size."

    |sz|

    self createTestFile.

    sz := 'testFile' asFilename fileSize.

    self readFileExpecting:sz.

    "

     self test1

    "

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

!

test2

    "read a file - check count read with files size.

     Do this in 20 threads"

    |sz|

    self createTestFile.

    sz := 'testFile' asFilename fileSize.

    20 timesRepeat:[

    ].

    "

     self test2

    "

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

!

test3

    "read a file - check count read with files size.

     Do this and interrupt the reading thread heavily"

    |sz p count nLoop|

    nLoop := 1000.

    self createTestFile.

    sz := 'testFile' asFilename fileSize.

    p := [

    ] forkAt:7.

    count := 0.

    [p isDead] whileFalse:[

    ].

    ('read file <1p> times; interrupted <2p> times' 

    "

     self test3

    "

    "Modified: / 12.8.1998 / 13:42:13 / cg"

! !

!FileStreamTest class methodsFor:'documentation'!

version

    ^ '$Header$'

! !