Lines Matching refs:expect
8 my @expect;
16 return unless @expect;
17 return ::fail() unless(@_ == @expect);
20 next if $_[$i] eq $expect[$i];
80 @expect = (TIEHANDLE => 'Implement');
85 @expect = (PRINT => $ob,"some","text");
86 $r = print $fh @expect[2,3];
89 @expect = (PRINTF => $ob,"%s","text");
90 $r = printf $fh @expect[2,3];
94 @expect = (READLINE => $ob);
98 @expect = ();
101 @expect = @in;
104 @expect = (GETC => $ob);
110 @expect = (READ => $ob, $buf, 3);
118 @expect = (READ => $ob, $buf, 3,3);
125 @expect = (WRITE => $ob, $buf, 4,1);
132 @expect = (WRITE => $ob, $buf, 4);
139 @expect = (WRITE => $ob, $buf, 6);
145 @expect = (CLOSE => $ob);
151 @expect = (PRINT => $ob,"some","text");
152 $r = print ALIAS @expect[2,3];
160 @expect = (PRINT => $ob,"some","text");
161 $r = print STDERR @expect[2,3];
225 @expect = (PRINT => $ob,"sometext\n");