#BUGFIX by sr
authorsr
Wed, 11 Oct 2017 13:50:11 +0200
changeset 1788 8f8f8310e503
parent 1787 67369aa4a2ca
child 1789 c24ce973ecc2
#BUGFIX by sr class: RegressionTests::DirectoryStreamTest changed: #test01
RegressionTests__DirectoryStreamTest.st
--- 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.