RegressionTests__PTYTest.st
changeset 1703 1d4f44ef3cc9
parent 1700 0c5fa360fd46
--- a/RegressionTests__PTYTest.st	Mon Sep 18 11:57:18 2017 +0200
+++ b/RegressionTests__PTYTest.st	Mon Sep 18 11:59:28 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -17,8 +15,8 @@
 testPTY1
     |ptyPair master slave|
 
-    self 
-        skipIf:OperatingSystem isLinuxLike not
+    self
+        skipIf:OperatingSystem isMSDOSlike
         description:'#makePTYPair not implemented in Win32OperatingSystem'.
 
     ptyPair := NonPositionableExternalStream makePTYPair.
@@ -37,14 +35,16 @@
     "
      self new testPTY1
     "
+
+    "Modified: / 18-09-2017 / 11:51:21 / mawalch"
 !
 
 testPTY2
     |ptyPair master slave|
 
-    self 
-        skipIf:OperatingSystem isLinuxLike not
-        description:'#makePTYPair not implemented in Win32OperatingSystem'.  
+    self
+        skipIf:OperatingSystem isMSDOSlike
+        description:'#makePTYPair not implemented in Win32OperatingSystem'.
 
     ptyPair := NonPositionableExternalStream makePTYPair.
     master := ptyPair at:1.
@@ -62,6 +62,8 @@
     "
      self new testPTY2
     "
+
+    "Modified: / 18-09-2017 / 11:51:48 / mawalch"
 ! !
 
 !PTYTest class methodsFor:'documentation'!