--- a/ReadWriteStreamTest.st	Tue Dec 18 19:48:33 2001 +0100
+++ b/ReadWriteStreamTest.st	Tue Dec 18 20:23:31 2001 +0100
@@ -13,7 +13,7 @@
 !ReadWriteStreamTest methodsFor:'setup'!
 
 setUp
-    self streamClass:ReadWriteStream
+    self streamClass:Rel5::ReadWriteStream
 ! !
 
 !ReadWriteStreamTest methodsFor:'tests'!
@@ -32,6 +32,29 @@
 testReadStream
 
     ^ super testReadStream
+!
+
+testWith
+    super testWith
+!
+
+testWriteString
+
+    |stream|
+
+    stream := self streamClass on:''.
+    self assert:(stream position == startPosition).
+
+    stream nextPut:$1.
+    stream nextPut:$2.
+    stream nextPut:$3.
+    stream nextPut:$4.
+    stream nextPut:$5.
+
+    self assert:(stream position == (5 + startPosition)).
+    self assert:(stream contents = '12345').
+    stream position:0.
+    self assert:(stream contents = '12345').
 ! !
 
 !ReadWriteStreamTest class methodsFor:'documentation'!