--- 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'!