--- a/RegressionTests__PTYTest.st Thu Sep 14 12:43:01 2017 +0200
+++ b/RegressionTests__PTYTest.st Fri Sep 15 13:24:12 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -15,13 +17,17 @@
testPTY1
|ptyPair master slave|
+ self
+ skipIf:OperatingSystem isLinuxLike not
+ description:'#makePTYPair not implemented in Win32OperatingSystem'.
+
ptyPair := NonPositionableExternalStream makePTYPair.
master := ptyPair at:1.
slave := ptyPair at:2.
master nextPutLine:'1234567890'.
'1234567890' do:[:ch |
- self assert:(slave next = ch).
+ self assert:(slave next = ch).
].
self assert:(slave next = Character linefeed).
@@ -36,6 +42,10 @@
testPTY2
|ptyPair master slave|
+ self
+ skipIf:OperatingSystem isLinuxLike not
+ description:'#makePTYPair not implemented in Win32OperatingSystem'.
+
ptyPair := NonPositionableExternalStream makePTYPair.
master := ptyPair at:1.
slave := ptyPair at:2.