Lines Matching refs:resp
352 my ($i, $resp);
362 $resp = timeout_read($s_out, 2.0);
363 if (!$resp) {
365 $resp = timeout_read($c_out);
367 $resp = "" if not defined($resp);
368 $resp eq "abc\n" or die "--max-conns $count server did not accept client #" . ($i + 1);
377 $resp = timeout_read($s_out, 2.0);
378 if (!$resp) {
380 $resp = timeout_read($c_out);
382 !$resp or die "--max-conns $count server accepted client #" . ($i + 1);
400 $resp = timeout_read($s_out, 2.0);
401 if (!$resp) {
403 $resp = timeout_read($c_out);
405 $resp = "" if not defined($resp);
406 …$resp eq "abc\n" or die "--max-conns $count server did not accept client #$count after freeing one…
484 my $resp;
489 $resp = timeout_read($s_out);
490 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
497 my $resp;
502 $resp = timeout_read($s_out);
503 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
510 my $resp;
515 $resp = timeout_read($s_out);
516 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
523 my $resp;
528 $resp = timeout_read($s_out);
529 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
537 my $resp;
542 $resp = timeout_read($s_out);
543 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
551 my $resp;
556 $resp = timeout_read($s_out);
557 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
568 my $resp;
573 $resp = timeout_read($s_out);
574 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from localhost";
583 my $resp;
588 $resp = timeout_read($s_out);
589 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from ::1";
598 my $resp;
603 $resp = timeout_read($s_out);
604 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from localhost";
611 my $resp;
616 $resp = timeout_read($s_out);
617 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from ::1";
625 my $resp;
630 $resp = timeout_read($s_out);
631 !$resp or die "Server got \"$resp\", not \"\" from 127.0.0.1";
638 my $resp;
642 $resp = timeout_read($s_out);
643 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from ::1";
650 my $resp;
655 $resp = timeout_read($s_out);
656 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from 127.0.0.1";
663 my $resp;
668 $resp = timeout_read($s_out);
669 !$resp or die "Server got \"$resp\", not \"\" from ::1";
676 my $resp;
681 $resp = timeout_read($s_out);
682 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
688 my $resp;
693 $resp = timeout_read($s_out);
694 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
704 my $resp;
709 $resp = timeout_read($s_out);
710 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from client";
721 my $resp;
726 $resp = timeout_read($s_out);
727 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\" from client";
796 my ($resp, $pid, $code);
882 my $resp;
885 $resp = timeout_read($s_out) or die "Read timeout";
886 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
888 $resp = timeout_read($c_out) or die "Read timeout";
889 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
897 my $resp;
900 $resp = timeout_read($s_out) or die "Read timeout";
901 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
905 $resp = timeout_read($s_out);
906 !defined($resp) or die "Server didn't get EOF (got \"$resp\")";
915 my $resp;
918 $resp = timeout_read($s_out) or die "Read timeout";
919 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
923 $resp = timeout_read($s_out);
924 !defined($resp) or die "Server didn't get EOF (got \"$resp\")";
932 my $resp;
935 $resp = timeout_read($c_out) or die "Read timeout";
936 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
940 $resp = timeout_read($c_out);
941 !defined($resp) or die "Client didn't get EOF (got \"$resp\")";
949 my $resp;
952 $resp = timeout_read($c_out) or die "Read timeout";
953 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
957 $resp = timeout_read($c_out);
958 !defined($resp) or die "Client didn't get EOF (got \"$resp\")";
966 my $resp;
969 $resp = timeout_read($c_out) or die "Read timeout";
970 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
974 $resp = timeout_read($c_out);
975 !defined($resp) or die "Client didn't get EOF and didn't exit (got \"$resp\")";
985 my $resp;
988 $resp = timeout_read($c_out) or die "Read timeout";
989 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
993 $resp = timeout_read($c_out);
994 !defined($resp) or die "Client didn't get EOF and didn't exit (got \"$resp\")";
1002 my $resp;
1005 $resp = timeout_read($c_out) or die "Read timeout";
1006 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
1010 $resp = timeout_read($c_out);
1011 !defined($resp) or die "Client didn't get EOF and didn't exit (got \"$resp\")";
1030 my $resp;
1033 $resp = timeout_read($s_out) or die "Read timeout";
1034 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1038 $resp = timeout_read($s_out);
1039 !defined($resp) or die "Server didn't send EOF";
1048 my $resp;
1051 $resp = timeout_read($s_out) or die "Read timeout";
1052 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1056 $resp = timeout_read($s_out);
1057 !defined($resp) or die "Server didn't send EOF";
1065 my $resp;
1068 $resp = timeout_read($s_out) or die "Read timeout";
1069 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1073 $resp = timeout_read($s_out);
1074 !defined($resp) or die "Server didn't send EOF";
1086 my $resp;
1090 $resp = timeout_read($s_out);
1091 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1105 my $resp;
1109 $resp = timeout_read($c_out);
1110 $resp eq "abc\n" or die "Client got back \"$resp\", not \"abc\\n\"";
1124 my $resp;
1162 my $resp;
1166 $resp = timeout_read($s_out);
1167 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1171 $resp = timeout_read($s_out);
1172 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1179 my $resp;
1183 $resp = timeout_read($c1_out);
1184 $resp eq "abc\n" or die "Client 1 got back \"$resp\", not \"abc\\n\"";
1188 $resp = timeout_read($c2_out);
1189 $resp eq "abc\n" or die "Client 2 got back \"$resp\", not \"abc\\n\"";
1196 my $resp;
1200 $resp = timeout_read($c1_out);
1201 $resp eq "abc\n" or die "Client 1 got back \"$resp\", not \"abc\\n\"";
1205 $resp = timeout_read($c2_out);
1206 $resp eq "abc\n" or die "Client 2 got back \"$resp\", not \"abc\\n\"";
1215 my $resp = timeout_read($c_out) or die "Read timeout";
1216 $resp eq "ABC\n" or die "Client received " . d($resp) . ", not " . d("ABC\n");
1222 my $resp = timeout_read($c_out) or die "Read timeout";
1223 $resp eq "ABC\n" or die "Client received " . d($resp) . ", not " . d("ABC\n");
1229 my $resp = timeout_read($c_out) or die "Read timeout";
1230 $resp eq "abc\n" or die "Client received " . d($resp) . ", not " . d("abc\n");
1236 my $resp = timeout_read($c_out) or die "Read timeout";
1237 $resp eq "ABC\r\n" or die "Client received " . d($resp) . ", not " . d("ABC\r\n");
1242 my $resp = timeout_read($s_out) or die "Read timeout";
1243 $resp eq "abc\n" or die "Server received " . d($resp) . ", not " . d("abc\n");
1249 my $resp = timeout_read($c_out) or die "Read timeout";
1250 $resp eq "ABC\n" or die "Client received " . d($resp) . ", not " . d("ABC\n");
1258 my $resp = timeout_read($c_out) or die "Read timeout";
1259 match_ncat_environment($resp) or die "Client received " . d($resp) . ".";
1265 my $resp = timeout_read($c_out) or die "Read timeout";
1266 match_ncat_environment($resp) or die "Client received " . d($resp) . ".";
1271 my $resp = timeout_read($s_out) or die "Read timeout";
1272 match_ncat_environment($resp) or die "Client received " . d($resp) . ".";
1278 my $resp = timeout_read($c_out) or die "Read timeout";
1279 match_ncat_environment($resp) or die "Client received " . d($resp) . ".";
1292 my $resp;
1302 $resp = timeout_read($s_out) or die "Read timeout";
1303 $resp eq $expected or die "Server received " . d($resp) . ", not " . d($expected);
1312 $resp = timeout_read($c_out) or die "Read timeout";
1313 $resp eq $expected or die "Client received " . d($resp) . ", not " . d($expected);
1319 my $resp;
1325 $resp = timeout_read($s_out) or die "Read timeout";
1326 $resp eq $expected or die "Server received " . d($resp) . ", not " . d($expected);
1332 my $resp;
1338 $resp = timeout_read($c_out) or die "Read timeout";
1339 $resp eq $expected or die "Client received " . d($resp) . ", not " . d($expected);
1347 my $resp;
1350 $resp = timeout_read($s_out) or die "Read timeout";
1353 $resp = timeout_read($c_out) or die "Read timeout";
1356 $resp = timeout_read($s_out) or die "Read timeout";
1359 $resp = timeout_read($c_out);
1360 !$resp or die "Client received \"$resp\" after delay of 4000 ms with idle timeout of 3000 ms."
1367 my $resp;
1370 $resp = timeout_read($c_out) or die "Read timeout";
1373 $resp = timeout_read($s_out) or die "Read timeout";
1376 $resp = timeout_read($c_out) or die "Read timeout";
1379 $resp = timeout_read($s_out);
1380 !$resp or die "Server received \"$resp\" after delay of 4000 ms with idle timeout of 3000 ms."
1385 my $resp;
1389 $resp = timeout_read($s_out) or die "Server didn't receive the message";
1392 $resp = timeout_read($c_out) or die "Read timeout";
1395 $resp = timeout_read($s_out) or die "Read timeout";
1398 $resp = timeout_read($c_out) or die "Read timeout";
1401 $resp = timeout_read($s_out);
1402 !$resp or die "Server received \"$resp\" after delay of 4000 ms with idle timeout of 3000 ms."
1409 my $resp;
1412 $resp = timeout_read($s_out);
1413 $resp or die "Read timeout";
1414 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1417 $resp = timeout_read($c_out);
1418 !$resp or die "Client received \"$resp\" in --send-only mode";
1423 my $resp;
1426 $resp = timeout_read($s_out);
1427 !$resp or die "Server received \"$resp\" in --send-only mode";
1430 $resp = timeout_read($c_out);
1431 $resp or die "Read timeout";
1432 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
1438 my $resp;
1444 $resp = timeout_read($c1_out);
1445 $resp or die "Read timeout";
1446 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
1447 $resp = timeout_read($c2_out);
1448 $resp or die "Read timeout";
1449 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
1452 $resp = timeout_read($c2_out);
1453 !$resp or die "--send-only broker relayed \"$resp\"";
1463 my $resp;
1466 $resp = timeout_read($s_out);
1467 !$resp or die "Server received \"$resp\" from --recv-only client";
1470 $resp = timeout_read($c_out);
1471 $resp or die "Read timeout";
1472 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
1477 my $resp;
1480 $resp = timeout_read($s_out);
1481 $resp or die "Read timeout";
1482 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
1485 $resp = timeout_read($c_out);
1486 !$resp or die "Client received \"$resp\" from --recv-only server";
1492 my $resp;
1498 $resp = timeout_read($c1_out);
1499 !$resp or die "Client received \"$resp\" from --recv-only broker";
1500 $resp = timeout_read($c2_out);
1501 !$resp or die "Client received \"$resp\" from --recv-only broker";
1504 $resp = timeout_read($c2_out);
1505 !$resp or die "Client received \"$resp\" from --recv-only broker";
1513 my $resp;
1519 $resp = timeout_read($c1_out);
1520 $resp eq "abc\n" or die "Client 1 received \"$resp\", not abc";
1523 $resp = timeout_read($c2_out);
1524 $resp eq "abc\n" or die "Client 2 received \"$resp\", not abc";
1533 my $resp;
1539 $resp = timeout_read($c1_out);
1540 $resp eq "abc\n" or die "Client 1 received \"$resp\", not abc";
1543 $resp = timeout_read($c2_out);
1544 $resp eq "abc\n" or die "Client 2 received \"$resp\", not abc";
1552 my $resp;
1558 $resp = timeout_read($c1_out);
1559 $resp eq "abc\n" or die "Client 1 received \"$resp\", not abc";
1562 $resp = timeout_read($c2_out);
1563 $resp eq "abc\n" or die "Client 2 received \"$resp\", not abc";
1572 my $resp;
1578 $resp = timeout_read($c1_out);
1579 $resp eq "abc\n" or die "Client 1 received \"$resp\", not abc";
1582 $resp = timeout_read($c2_out);
1583 $resp eq "abc\n" or die "Client 2 received \"$resp\", not abc";
1591 my $resp;
1597 $resp = timeout_read($c1_out, 2);
1598 $resp eq "abc\n" or die "IPV6 Client received \"$resp\", not abc";
1601 $resp = timeout_read($c2_out, 2);
1602 $resp eq "abc\n" or die "IPV4 Client received \"$resp\", not abc";
1713 my $resp = timeout_read($c_out) or die "Read timeout";
1714 my $code = HTTP::Response->parse($resp)->code;
1724 my $resp = timeout_read($c_out) or die "Read timeout";
1725 my $code = HTTP::Response->parse($resp)->code;
1735 my $resp = timeout_read($c_out) or die "Read timeout";
1736 my $code = HTTP::Response->parse($resp)->code;
1745 my $resp = timeout_read($c_out) or die "Read timeout";
1746 my $code = HTTP::Response->parse($resp)->code;
1756 my $resp = timeout_read($c_out) or die "Read timeout";
1757 my $code = HTTP::Response->parse($resp)->code;
1767 my $resp = timeout_read($c_out) or die "Read timeout";
1768 my $code = HTTP::Response->parse($resp)->code;
1777 my $resp = timeout_read($c_out) or die "Read timeout";
1778 my $code = HTTP::Response->parse($resp)->code;
1787 my $resp = timeout_read($c_out) or die "Read timeout";
1788 my $code = HTTP::Response->parse($resp)->code;
1797 my $resp = timeout_read($c_out) or die "Read timeout";
1798 my $code = HTTP::Response->parse($resp)->code;
1808 my $resp = timeout_read($c_out) or die "Read timeout";
1809 my $code = HTTP::Response->parse($resp)->code;
1992 my $resp = timeout_read($s_out) or die "Read timeout";
1993 $resp eq "abc\n" or die "Proxy relayed \"$resp\", not \"abc\\n\"";
1995 $resp = timeout_read($c_out) or die "Read timeout";
1996 $resp eq "def\n" or die "Proxy relayed \"$resp\", not \"def\\n\"";
2002 my $resp = timeout_read($c_out);
2003 !$resp or die "Proxy client sent " . d($resp) . " to the user stream";
2008 my $resp;
2010 $resp = timeout_read($c_out);
2011 if (!defined($resp)) {
2013 } elsif ($resp ne "abc\n") {
2014 die "Proxy client sent " . d($resp) . " to the user stream";
2021 my $resp;
2023 $resp = timeout_read($c_out);
2024 if (!defined($resp)) {
2026 } elsif ($resp ne "abc\n") {
2027 die "Proxy client sent " . d($resp) . " to the user stream";
2039 my $resp = timeout_read($c_out) or die "Read timeout";
2040 my $code = HTTP::Response->parse($resp)->code;
2043 $resp = timeout_read($s_out) or die "Read timeout";
2044 $resp eq "abc\n" or die "Proxy relayed \"$resp\", not \"abc\\n\"";
2051 my $resp = timeout_read($c_out) or die "Read timeout";
2052 my $code = HTTP::Response->parse($resp)->code;
2064 my $resp = timeout_read($c_out) or die "Read timeout";
2065 my $code = HTTP::Response->parse($resp)->code;
2074 my $resp = timeout_read($c_out) or die "Read timeout";
2075 my $code = HTTP::Response->parse($resp)->code;
2084 my $resp = timeout_read($c_out) or die "Read timeout";
2085 my $code = HTTP::Response->parse($resp)->code;
2094 my $resp = timeout_read($s_out) or die "Read timeout";
2095 $resp =~ /^GET \/ HTTP\/1\./ or die "Proxy sent \"$resp\"";
2103 my $resp = timeout_read($s_out) or die "Read timeout";
2104 $resp =~ /^GET \/ HTTP\/1\./ or die "Proxy sent \"$resp\"";
2112 my $resp = timeout_read($s_out) or die "Read timeout";
2113 uri_unescape($resp) =~ /^GET \/A HTTP\/1\./ or die "Proxy sent \"$resp\"";
2121 my $resp = timeout_read($s_out) or die "Read timeout";
2122 $resp = HTTP::Request->parse($resp);
2123 !defined($resp->header("Keep-Alive")) or die "Proxy did not remove Keep-Alive header field";
2124 !defined($resp->header("Two")) or die "Proxy did not remove Two header field";
2125 $resp->header("One") eq "1" or die "Proxy modified One header field";
2126 $resp->header("Three") eq "3" or die "Proxy modified Three header field";
2134 my $resp = timeout_read($s_out) or die "Read timeout";
2135 $resp = HTTP::Request->parse($resp);
2136 !defined($resp->header("Keep-Alive")) or die "Proxy did not remove Keep-Alive header field";
2137 !defined($resp->header("Two")) or die "Proxy did not remove Keep-Alive header field";
2138 $resp->header("One") eq "1" or die "Proxy modified One header field";
2139 $resp->header("Three") eq "3" or die "Proxy modified Three header field";
2150 my $resp = timeout_read($c_out) or die "Read timeout";
2151 my $code = HTTP::Response->parse($resp)->code;
2160 my $resp = timeout_read($c_out) or die "Read timeout";
2161 my $code = HTTP::Response->parse($resp)->code;
2170 my $resp = timeout_read($s_out) or die "Read timeout";
2171 $resp = HTTP::Request->parse($resp);
2172 $resp->method eq "HEAD" or die "Proxy sent \"" . $resp->method . "\"";
2180 my $resp = timeout_read($s_out) or die "Read timeout";
2181 $resp = HTTP::Request->parse($resp);
2182 $resp->method eq "POST" or die "Proxy sent \"" . $resp->method . "\"";
2183 $resp->content eq "abc\n" or die "Proxy sent \"" . $resp->content . "\"";
2191 my $resp = timeout_read($s_out) or die "Read timeout";
2192 $resp = HTTP::Request->parse($resp);
2193 $resp->method eq "POST" or die "Proxy sent \"" . $resp->method . "\"";
2194 $resp->content eq "" or die "Proxy sent \"" . $resp->content . "\"";
2202 my $resp = timeout_read($s_out) or die "Read timeout";
2203 $resp = HTTP::Request->parse($resp);
2204 $resp->method eq "POST" or die "Proxy sent \"" . $resp->method . "\"";
2205 $resp->content eq "ab" or die "Proxy sent \"" . $resp->content . "\"";
2213 my $resp = timeout_read($s_out) or die "Read timeout";
2214 $resp = HTTP::Request->parse($resp);
2215 $resp->method eq "POST" or die "Proxy sent \"" . $resp->method . "\"";
2216 $resp->content eq "abc\n" or die "Proxy sent \"" . $resp->content . "\"";
2224 my $resp = timeout_read($s_out);
2227 if ($resp) {
2228 $resp = HTTP::Request->parse($resp);
2229 $resp->method eq "POST" or die "Proxy sent \"" . $resp->method . "\"";
2230 $resp->content eq "abc\n" or die "Proxy sent \"" . $resp->content . "\"";
2232 $resp = timeout_read($c_out) or die "Read timeout";
2233 $resp = HTTP::Response->parse($resp);
2234 $resp->code == 400 or $resp->code == 411 or die "Proxy returned code " . $resp->code;
2243 my $resp = timeout_read($s_out);
2244 if ($resp) {
2245 $resp = HTTP::Request->parse($resp);
2246 $resp->method eq "POST" or die "Proxy sent \"" . $resp->method . "\"";
2247 $resp->content eq "" or die "Proxy sent \"" . $resp->content . "\"";
2249 $resp = timeout_read($c_out) or die "Read timeout";
2250 $resp = HTTP::Response->parse($resp);
2251 $resp->code == 400 or $resp->code == 411 or die "Proxy returned code " . $resp->code;
2261 my $resp = timeout_read($c_out) or die "Read timeout";
2262 my $code = HTTP::Response->parse($resp)->code;
2271 my $resp = timeout_read($s_out) or die "Read timeout";
2273 $resp = timeout_read($s_out) or die "Read timeout";
2274 …my $auth_header = HTTP::Response->parse($resp)->header("Proxy-Authorization") or die "Proxy client…
2286 my $resp = timeout_read($c_out) or die "Read timeout";
2287 $resp = HTTP::Response->parse($resp);
2288 my $code = $resp->code;
2290 my $auth = $resp->header("Proxy-Authenticate");
2301 my $resp = timeout_read($c_out) or die "Read timeout";
2302 $resp = HTTP::Response->parse($resp);
2303 my $code = $resp->code;
2314 my $resp = timeout_read($c_out) or die "Read timeout";
2315 $resp = HTTP::Response->parse($resp);
2316 my $code = $resp->code;
2327 my $resp = timeout_read($c_out) or die "Read timeout";
2328 $resp = HTTP::Response->parse($resp);
2329 my $code = $resp->code;
2340 my $resp = timeout_read($c_out) or die "Read timeout";
2341 $resp = HTTP::Response->parse($resp);
2342 my $code = $resp->code;
2352 my $resp = timeout_read($c_out);
2353 $resp or die "No response from server";
2354 $resp = HTTP::Response->parse($resp);
2355 foreach my $hdr ($resp->header("Proxy-Authenticate")) {
2364 $resp = timeout_read($c_out);
2365 $resp or die "No response from server";
2366 $resp = HTTP::Response->parse($resp);
2367 my $code = $resp->code;
2368 $resp->code == 407 or die "Expected response code 407, got $code";
2380 my $resp = timeout_read($c_out);
2381 $resp or die "No response from server";
2382 $resp = HTTP::Response->parse($resp);
2383 foreach my $hdr ($resp->header("Proxy-Authenticate")) {
2392 $resp = timeout_read($c_out);
2393 $resp or die "No response from server";
2394 $resp = HTTP::Response->parse($resp);
2395 my $code = $resp->code;
2396 $resp->code == 407 or die "Expected response code 407, got $code";
2408 my $resp = timeout_read($c_out);
2409 $resp or die "No response from server";
2410 $resp = HTTP::Response->parse($resp);
2411 foreach my $hdr ($resp->header("Proxy-Authenticate")) {
2420 $resp = timeout_read($c_out);
2421 $resp or die "No response from server";
2422 $resp = HTTP::Response->parse($resp);
2423 my $code = $resp->code;
2424 $resp->code == 200 or die "Expected response code 200, got $code";
2436 my $resp = timeout_read($c_out);
2437 $resp or die "No response from server";
2438 $resp = HTTP::Response->parse($resp);
2439 foreach my $hdr ($resp->header("Proxy-Authenticate")) {
2448 $resp = timeout_read($c_out);
2449 $resp or die "No response from server";
2450 $resp = HTTP::Response->parse($resp);
2451 my $code = $resp->code;
2452 $resp->code == 200 or die "Expected response code 200, got $code";
2464 my $resp = timeout_read($c_out);
2465 $resp or die "No response from server";
2466 $resp = HTTP::Response->parse($resp);
2467 foreach my $hdr ($resp->header("Proxy-Authenticate")) {
2474 $resp = timeout_read($c_out);
2475 $resp or die "No response from server";
2476 $resp = HTTP::Response->parse($resp);
2477 my $code = $resp->code;
2478 $resp->code == 407 or die "Expected response code 407, got $code";
2492 my $resp = timeout_read($c_out);
2493 $resp or die "No response from server";
2494 $resp = HTTP::Response->parse($resp);
2495 foreach my $hdr ($resp->header("Proxy-Authenticate")) {
2505 $resp = timeout_read($c_out);
2506 $resp or die "No response from server";
2507 $resp = HTTP::Response->parse($resp);
2508 my $code = $resp->code;
2509 $resp->code == 200 or die "Expected response code 200, got $code";
2511 $resp = timeout_read($c_out);
2512 if ($resp) {
2513 $resp = HTTP::Response->parse($resp);
2514 $code = $resp->code;
2515 $resp->code == 407 or die "Expected response code 407, got $code";
2532 my $resp = timeout_read($c_out) or die "Read timeout";
2533 $resp = HTTP::Response->parse($resp);
2534 my $code = $resp->code;
2545 my $resp = timeout_read($c_out) or die "Read timeout";
2546 $resp = HTTP::Response->parse($resp);
2547 my $code = $resp->code;
2558 my $resp = timeout_read($c_out) or die "Read timeout";
2559 $resp = HTTP::Response->parse($resp);
2560 my $code = $resp->code;
2571 my $resp = timeout_read($c_out) or die "Read timeout";
2572 $resp = HTTP::Response->parse($resp);
2573 my $code = $resp->code;
2584 my $resp = timeout_read($c_out) or die "Read timeout";
2585 $resp = HTTP::Response->parse($resp);
2586 my $code = $resp->code;
2594 my $resp;
2597 $resp = timeout_read($s_out);
2598 $resp or die "Read timeout";
2599 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2604 my $resp;
2607 $resp = timeout_read($s_out);
2608 $resp or die "Read timeout";
2609 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2615 my $resp;
2618 $resp = timeout_read($s_out);
2619 !$resp or die "Server did not reject host not in allow list";
2625 my $resp;
2628 $resp = timeout_read($s_out);
2629 $resp or die "Read timeout";
2630 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2635 my $resp;
2638 $resp = timeout_read($s_out);
2639 !$resp or die "Server did not reject host in deny list";
2644 my $resp;
2647 $resp = timeout_read($s_out);
2648 !$resp or die "Server did not reject host in deny list";
2654 my $resp;
2657 $resp = timeout_read($s_out);
2658 $resp or die "Read timeout";
2659 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2665 my $resp;
2668 $resp = timeout_read($s_out);
2669 !$resp or die "Server did not reject host in deny list";
2675 my $resp;
2678 $resp = timeout_read($s_out);
2679 !$resp or die "Server did not reject host in deny list";
2694 my $resp;
2697 $resp = timeout_read($s_out);
2698 $resp or die "Read timeout";
2699 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2703 my $resp;
2706 $resp = timeout_read($s_out);
2707 !$resp or die "Server did not reject host in --denyfile list";
2715 my $resp;
2718 $resp = timeout_read($s_out);
2719 $resp or die "Read timeout";
2720 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2723 $resp = timeout_read($c_out);
2724 $resp or die "Read timeout";
2725 $resp eq "abc\n" or die "Client got \"$resp\", not \"abc\\n\"";
2732 my $resp;
2741 $resp = timeout_read($s_out);
2742 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2752 my $resp;
2759 $resp = timeout_read($s_out);
2760 !$resp or die "Server is still accepting connections.";
2769 my $resp;
2776 $resp = timeout_read($s_out);
2777 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2785 my $resp;
2793 $resp = timeout_read($c2_out);
2794 $resp eq "ABC\n" or die "Client2 got \"$resp\", not \"ABC\\n\"";
2802 my $resp;
2806 $resp = timeout_read($s_out);
2807 $resp or die "Read timeout";
2808 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2815 my $resp;
2821 $resp = timeout_read($s_out);
2822 !$resp or die "Server got \"$resp\" when verification should have failed";
2829 my $resp;
2833 $resp = timeout_read($s_out);
2834 !$resp or die "Server got \"$resp\" when verification should have failed";
2842 my $resp;
2850 $resp = timeout_read($s_out);
2851 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2858 my $resp;
2866 $resp = timeout_read($c2_out);
2867 $resp eq "abc\n" or die "Second client got \"$resp\", not \"abc\\n\"";
2874 my $resp;
2882 $resp = timeout_read($s_out);
2883 $resp eq "abc\n" or die "Server got \"$resp\", not \"abc\\n\"";
2890 my $resp;
2899 $resp = timeout_read($c2_out);
2900 $resp eq "abc\n" or die "Second client got \"$resp\", not \"abc\\n\"";
3213 my ($resp, $pid, $code);
3217 $resp = timeout_read($s_out);
3218 $resp eq "\0" or die "Server got \"$resp\", not \"\\0\" from client";