Package renamed from exept:regression to stx:goodies/regression. Hooray!
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#PTYTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression-Streams'
!
!PTYTest methodsFor:'tests'!
testPTY1
|ptyPair master slave|
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 = Character linefeed).
master close.
slave close.
"
self new testPTY1
"
!
testPTY2
|ptyPair master slave|
ptyPair := NonPositionableExternalStream 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 testPTY2
"
! !
!PTYTest class methodsFor:'documentation'!
version
^ '$Header$'
! !