Lines Matching refs:right
92 my @right = ("perl ", "rules!"); # Not like I'm trying to bias any survey here.
98 foreach (@right) {
99 # is (syswrite (RIGHT, $_), length $_, "write " . _qq ($_) . " to right");
100 is (syswrite (RIGHT, $_), length $_, "syswrite to right");
105 $expect = join '', @right;
111 is (read (RIGHT, $buffer, length $expect), length $expect, "read on right");
119 local $SIG{ALRM} = sub { warn "EOF on right took over 3 seconds" };
124 ok (eof RIGHT, "right is at EOF");
154 is (syswrite (RIGHT, $_), length $_, "syswrite to right");
165 ok (close RIGHT, "close right");
189 foreach (@right) {
190 # is (syswrite (RIGHT, $_), length $_, "write " . _qq ($_) . " to right");
191 is (syswrite (RIGHT, $_), length $_, "syswrite to right");
196 $total = join '', @right;
197 foreach $expect (@right) {
205 is (sysread (RIGHT, $buffer, length $total), length $expect, "read on right");
223 "read on right should be interrupted");
229 #ok (eof RIGHT, "right is at EOF");
232 is (syswrite (RIGHT, $_), length $_, "syswrite to right");
243 ok (close RIGHT, "close right");