blob: eae679b99ed602478efda82da332dd1080b87248 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
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();
|
