diff options
Diffstat (limited to 'src/web/server/h2o/libh2o/t/50reverse-proxy-disconnected-keepalive.t')
-rw-r--r-- | src/web/server/h2o/libh2o/t/50reverse-proxy-disconnected-keepalive.t | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/src/web/server/h2o/libh2o/t/50reverse-proxy-disconnected-keepalive.t b/src/web/server/h2o/libh2o/t/50reverse-proxy-disconnected-keepalive.t deleted file mode 100644 index 4e35cba97..000000000 --- a/src/web/server/h2o/libh2o/t/50reverse-proxy-disconnected-keepalive.t +++ /dev/null @@ -1,77 +0,0 @@ -use strict; -use warnings; -use File::Temp qw(tempfile); -use Net::EmptyPort qw(check_port empty_port); -use Test::More; -use t::Util; - -plan skip_all => 'curl not found' - unless prog_exists('curl'); -plan skip_all => 'Starlet not found' - unless system('perl -MStarlet /dev/null > /dev/null 2>&1') == 0; - -subtest "tcp" => sub { - my $port = empty_port(); - my $upstream = spawn_upstream($port); - doit("127.0.0.1:$port"); -}; - -subtest "unix-socket" => sub { - plan skip_all => 'skipping unix-socket tests, requires Starlet >= 0.25' - if `perl -MStarlet -e 'print \$Starlet::VERSION'` < 0.25; - - (undef, my $sockfn) = tempfile(UNLINK => 0); - unlink $sockfn; - my $guard = Scope::Guard->new(sub { - unlink $sockfn; - }); - - my $upstream = spawn_upstream($sockfn); - doit("[unix:$sockfn]"); -}; - -done_testing; - -sub doit { - my $upaddr = shift; - - my $server = spawn_h2o(<< "EOT"); -hosts: - default: - paths: - /: - proxy.reverse.url: http://$upaddr - proxy.timeout.io: 1000 - proxy.timeout.keepalive: 10000 -EOT - my $port = $server->{port}; - - my $check_req = sub { - my ($headers, $body) = run_prog("curl --silent --dump-header /dev/stderr http://127.0.0.1:$port/index.txt 2>&1"); - like $headers, qr{^HTTP/1\.1 200 }is; - is $body, "hello\n"; - }; - subtest "first-connect" => $check_req; - subtest "redo-immediate" => $check_req; - sleep 2; - subtest "redo-after-upstream-disconnect" => $check_req; - sleep 2; - subtest "once-more" => $check_req; -}; - -sub spawn_upstream { - my $addr = shift; - spawn_server( - argv => [ - qw(plackup -s Starlet --max-keepalive-reqs 100 --keepalive-timeout 1 --access-log /dev/null --listen), $addr, - ASSETS_DIR . "/upstream.psgi" - ], - is_ready => sub { - if ($addr =~ /^\d+$/) { - check_port($addr); - } else { - !! -e $addr; - } - }, - ); -} |