equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:goodies/regression' }" |
3 "{ Package: 'stx:goodies/regression' }" |
2 |
4 |
3 "{ NameSpace: RegressionTests }" |
5 "{ NameSpace: RegressionTests }" |
4 |
6 |
5 TestCase subclass:#PTYTest |
7 TestCase subclass:#PTYTest |
13 !PTYTest methodsFor:'tests'! |
15 !PTYTest methodsFor:'tests'! |
14 |
16 |
15 testPTY1 |
17 testPTY1 |
16 |ptyPair master slave| |
18 |ptyPair master slave| |
17 |
19 |
|
20 self |
|
21 skipIf:OperatingSystem isLinuxLike not |
|
22 description:'#makePTYPair not implemented in Win32OperatingSystem'. |
|
23 |
18 ptyPair := NonPositionableExternalStream makePTYPair. |
24 ptyPair := NonPositionableExternalStream makePTYPair. |
19 master := ptyPair at:1. |
25 master := ptyPair at:1. |
20 slave := ptyPair at:2. |
26 slave := ptyPair at:2. |
21 |
27 |
22 master nextPutLine:'1234567890'. |
28 master nextPutLine:'1234567890'. |
23 '1234567890' do:[:ch | |
29 '1234567890' do:[:ch | |
24 self assert:(slave next = ch). |
30 self assert:(slave next = ch). |
25 ]. |
31 ]. |
26 self assert:(slave next = Character linefeed). |
32 self assert:(slave next = Character linefeed). |
27 |
33 |
28 master close. |
34 master close. |
29 slave close. |
35 slave close. |
33 " |
39 " |
34 ! |
40 ! |
35 |
41 |
36 testPTY2 |
42 testPTY2 |
37 |ptyPair master slave| |
43 |ptyPair master slave| |
|
44 |
|
45 self |
|
46 skipIf:OperatingSystem isLinuxLike not |
|
47 description:'#makePTYPair not implemented in Win32OperatingSystem'. |
38 |
48 |
39 ptyPair := NonPositionableExternalStream makePTYPair. |
49 ptyPair := NonPositionableExternalStream makePTYPair. |
40 master := ptyPair at:1. |
50 master := ptyPair at:1. |
41 slave := ptyPair at:2. |
51 slave := ptyPair at:2. |
42 |
52 |