--- a/RegressionTests__ExternalStreamTest.st	Tue Oct 21 10:27:04 2003 +0200
+++ b/RegressionTests__ExternalStreamTest.st	Thu Oct 23 22:01:56 2003 +0200
@@ -29,6 +29,20 @@
     "
 !
 
+testCopyFile1
+    self assert:('smalltalk.rc' asFilename exists).
+
+    'smalltalk.rc' asFilename copyTo:'smalltalk.rc2'.
+
+    self assert:('smalltalk.rc' asFilename fileSize = 'smalltalk.rc2' asFilename fileSize).
+    self assert:('smalltalk.rc' asFilename contentsOfEntireFile = 'smalltalk.rc2' asFilename contentsOfEntireFile).
+    'smalltalk.rc2' asFilename delete.
+
+    "
+     self new testCopyFile1
+    "
+!
+
 testPosition1
     |h s ch|