Lines Matching refs:left
91 my @left = ("hello ", "world\n");
94 foreach (@left) {
95 # is (syswrite (LEFT, $_), length $_, "write " . _qq ($_) . " to left");
96 is (syswrite (LEFT, $_), length $_, "syswrite to left");
107 is (read (LEFT, $buffer, length $expect), length $expect, "read on left");
109 $expect = join '', @left;
114 ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing");
135 = sub { warn "syswrite to left didn't fail within 3 seconds" };
141 is ($ans, undef, "syswrite to shutdown left should fail");
157 ok (!eof LEFT, "left is not at EOF");
161 is (read (LEFT, $buffer, length $expect), length $expect, "read on left");
164 ok (close LEFT, "close left");
185 foreach (@left) {
186 # is (syswrite (LEFT, $_), length $_, "write " . _qq ($_) . " to left");
187 is (syswrite (LEFT, $_), length $_, "syswrite to left");
199 is (sysread (LEFT, $buffer, length $total), length $expect, "read on left");
202 $total = join '', @left;
203 foreach $expect (@left) {
209 ok (shutdown(LEFT, 1), "shutdown left for writing");
238 is (sysread (LEFT, $buffer, length $total), length $expect, "read on left");
242 ok (close LEFT, "close left");