Lines Matching refs:expect
104 my ($buffer, $expect);
105 $expect = join '', @right;
107 is (read (LEFT, $buffer, length $expect), length $expect, "read on left");
108 is ($buffer, $expect, "content what we expected?");
109 $expect = join '', @left;
111 is (read (RIGHT, $buffer, length $expect), length $expect, "read on right");
112 is ($buffer, $expect, "content what we expected?");
159 $expect = join '', @gripping;
161 is (read (LEFT, $buffer, length $expect), length $expect, "read on left");
162 is ($buffer, $expect, "content what we expected?");
197 foreach $expect (@right) {
199 is (sysread (LEFT, $buffer, length $total), length $expect, "read on left");
200 is ($buffer, $expect, "content what we expected?");
203 foreach $expect (@left) {
205 is (sysread (RIGHT, $buffer, length $total), length $expect, "read on right");
206 is ($buffer, $expect, "content what we expected?");
236 foreach $expect (@gripping) {
238 is (sysread (LEFT, $buffer, length $total), length $expect, "read on left");
239 is ($buffer, $expect, "content what we expected?");