--- a/RegressionTests__DirectoryStreamTest.st Wed Oct 11 13:48:06 2017 +0200
+++ b/RegressionTests__DirectoryStreamTest.st Wed Oct 11 13:50:11 2017 +0200
@@ -56,6 +56,11 @@
dir asFilename makeDirectory.
s := DirectoryStream directoryNamed:dir.
+ OperatingSystem isMSDOSlike ifTrue:[
+ "/ skip '.', '..'
+ s nextLine; nextLine.
+ ].
+
self assert:s atEnd.
self assert:s nextLine isNil.
@@ -69,6 +74,11 @@
dir asFilename makeDirectory.
s := DirectoryStream directoryNamed:dir.
+ OperatingSystem isMSDOSlike ifTrue:[
+ "/ skip '.', '..'
+ s nextLine; nextLine.
+ ].
+
self assert:s atEnd not.
self assert:(t := s nextLine) = 'file1'.
self assert:s atEnd.