RegressionTests__DirectoryStreamTest.st
changeset 1788 8f8f8310e503
parent 1787 67369aa4a2ca
child 2156 6f444eaf1286
--- 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.