1 "{ Package: 'exept:regression' }"

     2 

     3 "{ NameSpace: RegressionTests }"

     4 

     5 WriteStreamTest subclass:#ReadWriteStreamTest

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Tests-Regression'

    10 !

    11 

    12 

    13 !ReadWriteStreamTest methodsFor:'setup'!

    14 

    15 setUp

    16     self streamClass:ReadWriteStream

    17 ! !

    18 

    19 !ReadWriteStreamTest methodsFor:'tests'!

    20 

    21 testBasic

    22     |stream|

    23 

    24     stream := self streamClass on:''.

    25     self assert:(stream isReadable).

    26     self assert:(stream isPositionable).

    27     self assert:(stream isWritable).

    28     self assert:(stream size == 0).

    29     self assert:(stream isEmpty)

    30 !

    31 

    32 testReadStream

    33 

    34     ^ super testReadStream

    35 ! !

    36 

    37 !ReadWriteStreamTest class methodsFor:'documentation'!

    38 

    39 version

    40     ^ '$Header$'

    41 ! !