diff options
Diffstat (limited to 'debian/vendor-h2o/t/80dup-host-headers.t')
-rw-r--r-- | debian/vendor-h2o/t/80dup-host-headers.t | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/debian/vendor-h2o/t/80dup-host-headers.t b/debian/vendor-h2o/t/80dup-host-headers.t deleted file mode 100644 index eae679b..0000000 --- a/debian/vendor-h2o/t/80dup-host-headers.t +++ /dev/null @@ -1,51 +0,0 @@ -use strict; -use warnings; -use Net::EmptyPort qw(check_port empty_port); -use Test::More; -use t::Util; - -plan skip_all => 'nghttp not found' - unless prog_exists('nghttp'); - -my $upstream_port = empty_port(); -$| = 1; -my $socket = new IO::Socket::INET ( - LocalHost => '127.0.0.1', - LocalPort => $upstream_port, - Proto => 'tcp', - Listen => 1, - Reuse => 1 -); -die "cannot create socket $!\n" unless $socket; - -check_port($upstream_port) or die "can't connect to server socket"; -# accent and close check_port's connection -my $client_socket = $socket->accept(); -close($client_socket); - -my $server = spawn_h2o(<< "EOT"); -hosts: - default: - paths: - "/": - proxy.reverse.url: http://127.0.0.1:$upstream_port -EOT - -system("nghttp http://127.0.0.1:$server->{'port'}/ -H 'host: host.example.com' &"); - -my $req; -$client_socket = $socket->accept(); -$client_socket->recv($req, 1024); -$client_socket->send("HTTP/1.1 200 Ok\r\nConnection:close\r\n\r\nBody\r\n"); -close($client_socket); -$socket->close(); - -my $host_headers = 0; -foreach (split(/\r\n/, $req)) { - if (/^host:/i) { - $host_headers++ - } -} - -ok($host_headers == 1, "Only saw one host: header"); -done_testing(); |