# HG changeset patch
# User sr
# Date 1505474652 -7200
# Node ID 0c5fa360fd46bddadd598d9d2f7abc593a7a7957
# Parent  c2daf79e7ebc7cc7a2fa767cd68f9fcf1b7467f8
#BUGFIX by sr
class: RegressionTests::PTYTest
changed:
	#testPTY1
	#testPTY2

diff -r c2daf79e7ebc -r 0c5fa360fd46 RegressionTests__PTYTest.st
--- 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.