--- a/RegressionTests__ExternalStreamTest.st	Tue Dec 18 21:16:42 2001 +0100
+++ b/RegressionTests__ExternalStreamTest.st	Tue Dec 18 21:25:26 2001 +0100
@@ -289,6 +289,67 @@
     "
      self new testWrite1
     "
+!
+
+testWrite2
+    |h s|
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    h := OperatingSystem createFileForReadWrite:'xxx1'.
+    s := ExternalWriteStream on:h.
+
+    self assert:( s position == 0 ).
+    s nextPutAll:'1234567890'.
+    self assert:( s position == 10 ).
+
+
+    s close.
+
+    self assert:( 'xxx1' asFilename exists ).
+    self assert:( 'xxx1' asFilename fileSize == 10 ).
+    self assert:( 'xxx1' asFilename contentsOfEntireFile = '1234567890' ).
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    "
+     self new testWrite2
+    "
+!
+
+testWrite3
+    |h s|
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    h := OperatingSystem createFileForReadWrite:'xxx1'.
+    s := ExternalWriteStream on:h.
+
+    s nextPutAll:'1234567890'.
+    self assert:( s position == 10 ).
+    s position:5.
+    s nextPutAll:'abcdefghij'.
+    self assert:( s position == 15 ).
+
+    s close.
+
+    self assert:( 'xxx1' asFilename exists ).
+    self assert:( 'xxx1' asFilename fileSize == 15 ).
+    self assert:( 'xxx1' asFilename contentsOfEntireFile = '12345abcdefghij' ).
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    "
+     self new testWrite3
+    "
 ! !
 
 !ExternalStreamTest class methodsFor:'documentation'!