--- a/RegressionTests__ExternalStreamTest.st	Tue Dec 18 20:55:39 2001 +0100
+++ b/RegressionTests__ExternalStreamTest.st	Tue Dec 18 21:04:01 2001 +0100
@@ -181,6 +181,32 @@
     "
      self new testReadWait1
     "
+!
+
+testWrite1
+    |h s|
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    h := OperatingSystem createFileForReadWrite:'xxx1'.
+    s := ExternalWriteStream on:h.
+
+    s nextPutAll:'1234567890'.
+    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 testWrite1
+    "
 ! !
 
 !ExternalStreamTest class methodsFor:'documentation'!