--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__PTYTest.st	Mon Feb 03 12:20:33 2003 +0100
@@ -0,0 +1,40 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#PTYTest
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression'
+!
+
+
+!PTYTest methodsFor:'tests'!
+
+testPTY1
+    |ptyPair master slave|
+
+    ptyPair := ExternalStream makePTYPair.
+    master := ptyPair at:1.
+    slave := ptyPair at:2.
+
+    master nextPutLine:'1234567890'.
+    self assert:(slave nextLine = '1234567890').
+
+    slave nextPutLine:'1234567890'.
+    self assert:(master nextLine = '1234567890').
+
+    master close.
+    slave close.
+
+    "
+     self new testPTY1
+    "
+! !
+
+!PTYTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !