--- a/FileBrowserV2Tests.st	Thu Feb 27 15:41:37 2003 +0100
+++ b/FileBrowserV2Tests.st	Thu Feb 27 18:05:09 2003 +0100
@@ -23,10 +23,6 @@
     [see also:]
 
 "
-!
-
-history
-    "Created: / 31.7.2002 / 11:59:23 / penk"
 ! !
 
 !FileBrowserV2Tests methodsFor:'initialize / release'!
@@ -47,11 +43,14 @@
 
 createBigDirectory
 
+    | testDir |
+
+    testDir := Filename homeDirectory construct:'Test'.
     (Filename homeDirectory construct:'Test') makeDirectory.
     1 to:5 do:[: id1|
         1 to:50 do:[: id2|
             1 to:50 do:[: id3|
-                ('/home/penk/Test' asFilename construct:('file', id1 asString, '.', id2 asString,'.', id3 asString)) writeStream
+                (testDir construct:('file', id1 asString, '.', id2 asString,'.', id3 asString)) writeStream
             ]
         ].
     ]
@@ -103,6 +102,21 @@
     "
 !
 
+testDosFiles
+
+    | file stream|
+
+    file := Filename currentDirectory asAbsoluteFilename construct:'foobar~1'.
+    stream := file writeStream.
+    self should:file exists.
+    stream close.
+    file remove.
+
+"
+self new testDosFiles   
+"
+!
+
 testFileItem
     "Just a demonstration testCase.
      Double click on the TestCase class or open a TestRunner to see me checking...
@@ -143,5 +157,5 @@
 !FileBrowserV2Tests class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2Tests.st,v 1.6 2002-12-04 17:10:53 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2Tests.st,v 1.7 2003-02-27 17:05:09 penk Exp $'
 ! !