summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/80dup-host-headers.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/t/80dup-host-headers.t')
-rw-r--r--debian/vendor-h2o/t/80dup-host-headers.t51
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();