--- a/RegressionTests__FileOpenTest.st	Tue Dec 11 19:10:15 2001 +0100
+++ b/RegressionTests__FileOpenTest.st	Tue Dec 11 19:18:39 2001 +0100
@@ -12,6 +12,88 @@
 
 !FileOpenTest methodsFor:'tests'!
 
+createWithSize10:fileName
+    "helper"
+
+    (fileName asFilename exists) ifTrue:[
+        fileName asFilename delete
+    ].
+    fileName asFilename writeStream 
+        nextPutAll:'1234567890';
+        close.
+    self assert:(fileName asFilename exists).
+    self assert:(fileName asFilename fileSize == 10).
+
+    "
+     self new createWithSize10:'xxx1'
+    "
+!
+
+testCreate1
+    "create a file"
+
+    |h|
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    h := OperatingSystem createFileForReadWrite:'xxx1'.
+    self assert:(h notNil).
+    self assert:(h isValid).
+    OperatingSystem isMSDOSlike ifTrue:[
+        self assert:(h address ~~ 0).
+    ].
+
+    h close.
+    self assert:(h isValid not).
+    OperatingSystem isMSDOSlike ifTrue:[
+        self assert:(h address == 0).
+    ].
+
+    self assert:('xxx1' asFilename exists).
+    self assert:('xxx1' asFilename fileSize == 0).
+
+    'xxx1' asFilename delete
+
+    "
+     self new testCreate1
+    "
+
+    "Modified: / 12.8.1998 / 13:29:55 / cg"
+!
+
+testCreate2
+    "create a file; checks if the file is truncated if already existing"
+
+    |h|
+
+    self createWithSize10:'xxx1'.
+
+
+    h := OperatingSystem createFileForReadWrite:'xxx1'.
+    self assert:(h notNil).
+    self assert:(h isValid).
+    OperatingSystem isMSDOSlike ifTrue:[
+        self assert:(h address ~~ 0).
+    ].
+
+    h close.
+    self assert:(h isValid not).
+    OperatingSystem isMSDOSlike ifTrue:[
+        self assert:(h address == 0).
+    ].
+
+    self assert:('xxx1' asFilename exists).
+    self assert:('xxx1' asFilename fileSize == 0).
+
+    "
+     self new testCreate2
+    "
+
+    "Modified: / 12.8.1998 / 13:29:55 / cg"
+!
+
 testOpen1
     "open a file"