RegressionTests__PTYTest.st
branchjv
changeset 1500 d406a10b2965
parent 1499 26a16a04219b
parent 1447 2351db93aa5b
child 1605 5ff1befbd463
equal deleted inserted replaced
1499:26a16a04219b 1500:d406a10b2965
    19     master := ptyPair at:1.
    19     master := ptyPair at:1.
    20     slave := ptyPair at:2.
    20     slave := ptyPair at:2.
    21 
    21 
    22     master nextPutLine:'1234567890'.
    22     master nextPutLine:'1234567890'.
    23     '1234567890' do:[:ch |
    23     '1234567890' do:[:ch |
    24         self assert:(slave next = ch).
    24 	self assert:(slave next = ch).
    25     ].
    25     ].
    26     self assert:(slave next = Character linefeed).
    26     self assert:(slave next = Character linefeed).
    27 
    27 
    28     master close.
    28     master close.
    29     slave close.
    29     slave close.