--- a/RegressionTests__StreamTests.st Fri Apr 22 15:35:47 2016 +0200
+++ b/RegressionTests__StreamTests.st Fri Apr 22 15:38:43 2016 +0200
@@ -453,6 +453,33 @@
"
!
+test22_readWriteStreamWithRewrite
+ |s|
+
+ "0123456789012345678901"
+ s := ReadWriteStream on:(String new).
+ self assert:(s position == 0).
+ self assert:(s readLimit == 0).
+
+ s nextPutAll:'hello world'.
+ self assert:(s position == 11).
+ self assert:(s readLimit == 11).
+
+ s position:(s position - 5).
+ self assert:(s position = 6).
+ s nextPutAll:'W'.
+
+ self assert:(s position = 7).
+ self assert:(s readLimit = 11).
+ self assert:(s contents = 'hello World').
+
+
+ "
+ self run:#test22_readWriteStreamWithRewrite
+ self new test21_readWriteStreamWithPosition
+ "
+!
+
test30_readWriteBinary
|testVector s val|