summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/80issues61.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/t/80issues61.t')
-rw-r--r--debian/vendor-h2o/t/80issues61.t57
1 files changed, 0 insertions, 57 deletions
diff --git a/debian/vendor-h2o/t/80issues61.t b/debian/vendor-h2o/t/80issues61.t
deleted file mode 100644
index bdcfd6e..0000000
--- a/debian/vendor-h2o/t/80issues61.t
+++ /dev/null
@@ -1,57 +0,0 @@
-use strict;
-use warnings;
-use Net::EmptyPort qw(check_port empty_port);
-use Test::More;
-use t::Util;
-
-plan skip_all => 'plackup not found'
- unless prog_exists('plackup');
-plan skip_all => 'Starlet not found'
- unless system('perl -MStarlet /dev/null > /dev/null 2>&1') == 0;
-
-my $upstream_port = empty_port();
-
-my $upstream = spawn_server(
- argv => [
- qw(plackup -s Starlet --access-log /dev/null -p), $upstream_port, ASSETS_DIR . "/upstream.psgi",
- ],
- is_ready => sub {
- check_port($upstream_port);
- },
-);
-
-my $h2o = spawn_h2o(<< "EOT");
-hosts:
- default:
- paths:
- /:
- proxy.reverse.url: http://127.0.0.1:$upstream_port
-EOT
-
-subtest 'http1' => sub {
- plan skip_all => 'curl not found'
- unless prog_exists('curl');
-
- my $doit = sub {
- my ($proto, $port) = @_;
- my $extra = '';
- if ($proto eq 'https') {
- $extra .= ' --insecure';
- $extra .= ' --http1.1'
- if curl_supports_http2();
- }
- subtest $proto => sub {
- my $resp = `curl --max-time 1 $extra $proto://127.0.0.1:$port/streaming-body 2>&1`;
- like $resp, qr/operation timed out/i, "operation should time out";
- sleep 1;
- $resp = `curl --silent --dump-header /dev/stderr $extra $proto://127.0.0.1:$port/ 2>&1 > /dev/null`;
- like $resp, qr{^HTTP/[^ ]+ 404\s}s, "server is still alive";
- };
- };
- $doit->('http', $h2o->{port});
- $doit->('https', $h2o->{tls_port});
-};
-
-# note: implement test using HTTP/2, nghttp --timeout 2 does not seem to work like above
-
-done_testing;