--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__DirectoryStreamTest.st	Thu Jan 15 16:03:13 2015 +0100
@@ -0,0 +1,72 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#DirectoryStreamTest
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Streams'
+!
+
+
+!DirectoryStreamTest methodsFor:'cleanup'!
+
+tearDown
+    self testDirName recursiveRemove   
+! !
+
+!DirectoryStreamTest methodsFor:'helpers'!
+
+testDirName
+    ^ 'testDir' asFilename
+! !
+
+!DirectoryStreamTest methodsFor:'tests'!
+
+test01
+    "basic open for appending."
+
+    |s dir|
+
+    dir := self testDirName.
+    dir asFilename makeDirectory.
+    s := DirectoryStream directoryNamed:dir.
+
+    self assert:s atEnd.
+    self assert:s nextLine isNil.
+
+    s close.
+
+    self assert:dir asFilename directoryContents size == 0.
+
+    (dir asFilename construct:'file1') writingFileDo:[:s | s nextPutAll:'foo'].
+
+    dir := self testDirName.
+    dir asFilename makeDirectory.
+    s := DirectoryStream directoryNamed:dir.
+
+    self assert:s atEnd not.
+    self assert:s nextLine = 'foo'.
+    self assert:s atEnd not.
+    self assert:s nextLine isNil.
+
+    s close.
+
+    self assert:dir asFilename directoryContents size == 1.
+
+    "
+     self new test01
+    "
+! !
+
+!DirectoryStreamTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
+! !
+