"{ 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$'
! !