equal
deleted
inserted
replaced
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. |