Lines Matching full:os2

14 ok !eval {OS2::pipe $pname, 'wait'}, 'wait for non-existing pipe fails';
16 ok my $server_pipe = OS2::pipe($pname, 'rw'), 'create pipe, no connect';
18 is +(OS2::pipeCntl($server_pipe, 'readstate'))[0], 2, 'is listening';
19 is OS2::pipeCntl($server_pipe, 'state') & 0xFF, 1, 'max count=1';
21 ok 0 > OS2::pipeCntl($server_pipe, 'connect', !'wait'), 'connect nowait';
25 #my ($fd1, $action) = OS2::open $pname, 0x2042 or warn $^E; # ERROR,SHARE,RDWR
26 is +(OS2::pipeCntl($server_pipe, 'readstate'))[0], 3, 'is connected';
27 ok 0 < OS2::pipeCntl($server_pipe, 'connect', !'wait'), 'connect nowait';
28 ok OS2::pipeCntl($server_pipe, 'connect', 'wait'), 'connect wait';
35 is OS2::pipeCntl($server_pipe, 'peek'), "another string\n", 'peeking is fine';
36 my ($st, $bytesAvail, $bytesInMess) = OS2::pipeCntl($server_pipe, 'readstate');
38   = OS2::pipeCntl($server_pipe, 'info');
53 ok 0 > OS2::pipeCntl($server_pipe, 'reset', !'wait'), 'server reset, no wait';
109     $mess .= "Pipe became available\n" if OS2::pipe $pn, 'wait';
134 ok 0 < OS2::pipeCntl($server_pipe, 'reset', 'wait'), 'server reset, wait';
150 ok $server_pipe = OS2::pipe($pname, 'RW'), 'create pipe in message mode';
151 ok OS2::pipeCntl($server_pipe, 'byte'),    'can switch to byte mode';
152 ok OS2::pipeCntl($server_pipe, 'message'), 'can switch to message mode';
159   warn "kid2: OS2::pipe $name, 'call', ...\n";
160   my $got = OS2::pipe $name, 'call', "Is your pid $ppid?\n";
163   OS2::pipe $name, 'call', $ok ? "fine\n" : "bad\n";
173 ok 0 < OS2::pipeCntl($server_pipe, 'reset', 'wait'), 'server reset, wait';
180 ok $server_pipe = OS2::pipe($pname, 'W'), 'create pipe in message write mode';
181 ok !eval {OS2::pipeCntl($server_pipe, 'readstate'); 1}, 'readstate fails, as expected';
184 ok $server_pipe = OS2::pipe($pname, 'w'), 'create pipe in byte write mode';
185 ok !eval {OS2::pipeCntl($server_pipe, 'readstate'); 1}, 'readstate fails, as expected';
188 ok $server_pipe = OS2::pipe($pname, 'r'), 'create pipe in byte read mode';
189 is +(OS2::pipeCntl($server_pipe, 'readstate'))[0], 2, 'is listening';
192 ok $server_pipe = OS2::pipe($pname, 'r', 0), 'create-no-connect pipe in byte read mode';
193 is +(OS2::pipeCntl($server_pipe, 'readstate'))[0], 1, 'is disconnected';
196 ok $server_pipe = OS2::pipe($pname, 'R'), 'create pipe in message read mode';
197 is +(OS2::pipeCntl($server_pipe, 'readstate'))[0], 2, 'is listening';