--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/ReadWriteStreamTest.st Thu Dec 13 20:01:57 2001 +0100
@@ -0,0 +1,41 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+WriteStreamTest subclass:#ReadWriteStreamTest
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Tests-Regression'
+!
+
+
+!ReadWriteStreamTest methodsFor:'setup'!
+
+setUp
+ self streamClass:ReadWriteStream
+! !
+
+!ReadWriteStreamTest methodsFor:'tests'!
+
+testBasic
+ |stream|
+
+ stream := self streamClass on:''.
+ self assert:(stream isReadable).
+ self assert:(stream isPositionable).
+ self assert:(stream isWritable).
+ self assert:(stream size == 0).
+ self assert:(stream isEmpty)
+!
+
+testReadStream
+
+ ^ super testReadStream
+! !
+
+!ReadWriteStreamTest class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !