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

! !