--- 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'!