summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/80one-byte-window.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/t/80one-byte-window.t')
-rw-r--r--debian/vendor-h2o/t/80one-byte-window.t56
1 files changed, 0 insertions, 56 deletions
diff --git a/debian/vendor-h2o/t/80one-byte-window.t b/debian/vendor-h2o/t/80one-byte-window.t
deleted file mode 100644
index f2d0813..0000000
--- a/debian/vendor-h2o/t/80one-byte-window.t
+++ /dev/null
@@ -1,56 +0,0 @@
-use strict;
-use warnings;
-use Net::EmptyPort qw(check_port empty_port);
-use Test::More;
-use t::Util;
-
-plan skip_all => 'nc not found'
- unless prog_exists('nc');
-
-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
-
-my $msg = "this is the message";
-open(NGHTTP, "nghttp -t 3 -w 1 -v http://127.0.0.1:$server->{'port'}/ -H 'host: host.example.com' 2>&1 |");
-
-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\n$msg");
-close($client_socket);
-
-my $worked = 1;
-while(<NGHTTP>) {
- if (/Timeout/) {
- $worked = 0;
- }
-}
-
-ok($worked == 1, "The connection didn't timeout");
-
-$socket->close();
-done_testing();