equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'stx:goodies/regression' }" |
1 "{ Package: 'stx:goodies/regression' }" |
4 |
2 |
5 "{ NameSpace: RegressionTests }" |
3 "{ NameSpace: RegressionTests }" |
6 |
4 |
7 TestCase subclass:#PTYTest |
5 TestCase subclass:#PTYTest |
15 !PTYTest methodsFor:'tests'! |
13 !PTYTest methodsFor:'tests'! |
16 |
14 |
17 testPTY1 |
15 testPTY1 |
18 |ptyPair master slave| |
16 |ptyPair master slave| |
19 |
17 |
20 self |
18 self |
21 skipIf:OperatingSystem isLinuxLike not |
19 skipIf:OperatingSystem isMSDOSlike |
22 description:'#makePTYPair not implemented in Win32OperatingSystem'. |
20 description:'#makePTYPair not implemented in Win32OperatingSystem'. |
23 |
21 |
24 ptyPair := NonPositionableExternalStream makePTYPair. |
22 ptyPair := NonPositionableExternalStream makePTYPair. |
25 master := ptyPair at:1. |
23 master := ptyPair at:1. |
26 slave := ptyPair at:2. |
24 slave := ptyPair at:2. |
35 slave close. |
33 slave close. |
36 |
34 |
37 " |
35 " |
38 self new testPTY1 |
36 self new testPTY1 |
39 " |
37 " |
|
38 |
|
39 "Modified: / 18-09-2017 / 11:51:21 / mawalch" |
40 ! |
40 ! |
41 |
41 |
42 testPTY2 |
42 testPTY2 |
43 |ptyPair master slave| |
43 |ptyPair master slave| |
44 |
44 |
45 self |
45 self |
46 skipIf:OperatingSystem isLinuxLike not |
46 skipIf:OperatingSystem isMSDOSlike |
47 description:'#makePTYPair not implemented in Win32OperatingSystem'. |
47 description:'#makePTYPair not implemented in Win32OperatingSystem'. |
48 |
48 |
49 ptyPair := NonPositionableExternalStream makePTYPair. |
49 ptyPair := NonPositionableExternalStream makePTYPair. |
50 master := ptyPair at:1. |
50 master := ptyPair at:1. |
51 slave := ptyPair at:2. |
51 slave := ptyPair at:2. |
52 |
52 |
60 slave close. |
60 slave close. |
61 |
61 |
62 " |
62 " |
63 self new testPTY2 |
63 self new testPTY2 |
64 " |
64 " |
|
65 |
|
66 "Modified: / 18-09-2017 / 11:51:48 / mawalch" |
65 ! ! |
67 ! ! |
66 |
68 |
67 !PTYTest class methodsFor:'documentation'! |
69 !PTYTest class methodsFor:'documentation'! |
68 |
70 |
69 version |
71 version |