1 files changed, 51 insertions, 0 deletions
diff --git a/web/server/h2o/libh2o/t/80dup-host-headers.t b/web/server/h2o/libh2o/t/80dup-host-headers.t
new file mode 100644
index 00000000..eae679b9
--- /dev/null
+++ b/web/server/h2o/libh2o/t/80dup-host-headers.t
@@ -0,0 +1,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();