Lines Matching refs:be

34     my $be = $srv->accept();
35     $be->autoflush(1);
36     ok(defined $be, "mock backend created");
37     like(<$be>, qr/version/, "received version command");
38     print $be "VERSION 1.0.0-mock\r\n";
40     return $be;
76         my $be = accept_backend($msrv);
77         push(@mbe, $be);
92     my $be = $mbe[0];
94         like(<$be>, qr/^mg \/test\/\w\r\n$/, "backend received mg");
95         print $be "EN\r\n";
98     $s->add($be);
125         like(<$be>, qr/^mg \/test\/\w\r\n$/, "backend received mg");
126         print $be "EN\r\n";
149     my $be = $mbe[0];
151     $s->add($be);
157     is(scalar <$be>, "ms foo 30000 T30\r\n", "received first ms");
158     $res = scalar <$be>;
159     print $be "HD\r\n";
172     $be = $mbe[0] = accept_backend($mocksrvs[0]);
184     is(scalar <$be>, "ms foo 2 T30\r\n", "client works after oom");
185     is(scalar <$be>, "hi\r\n", "client works after oom");
186     print $be "HD\r\n";
189     is(scalar <$be>, "ms foo 2 T30\r\n", "client works after oom");
190     is(scalar <$be>, "hi\r\n", "client works after oom");
191     print $be "HD\r\n";
211     my $be = $mbe[0];
224             my $res = scalar <$be>;
225             print $be "VALUE foo 0 2\r\nhi\r\n";
226             print $be "END\r\n";
241             my $res = scalar <$be>;
242             print $be "VALUE foo 0 2\r\nhi\r\n";
243             print $be "END\r\n";
261             my $res = scalar <$be>;
262             print $be "VALUE foo 0 2\r\nhi\r\n";
263             print $be "END\r\n";