From be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Fri, 19 Apr 2024 04:57:58 +0200 Subject: Adding upstream version 1.44.3. Signed-off-by: Daniel Baumann --- web/server/h2o/libh2o/t/50reverse-proxy-config.t | 104 +++++++++++++++++++++++ 1 file changed, 104 insertions(+) create mode 100644 web/server/h2o/libh2o/t/50reverse-proxy-config.t (limited to 'web/server/h2o/libh2o/t/50reverse-proxy-config.t') diff --git a/web/server/h2o/libh2o/t/50reverse-proxy-config.t b/web/server/h2o/libh2o/t/50reverse-proxy-config.t new file mode 100644 index 00000000..62b34668 --- /dev/null +++ b/web/server/h2o/libh2o/t/50reverse-proxy-config.t @@ -0,0 +1,104 @@ +use strict; +use warnings; +use Digest::MD5 qw(md5_hex); +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; + +plan skip_all => 'curl not found' + unless prog_exists('curl'); + +# start upstream +my $upstream_port = empty_port(); +my $upstream = spawn_server( + argv => [ + qw(plackup -MPlack::App::File -s Starlet --access-log /dev/null -p), $upstream_port, + ASSETS_DIR . "/upstream.psgi", + ], + is_ready => sub { + check_port($upstream_port); + }, +); + +subtest 'preserve-host' => sub { + my $doit = sub { + my $flag = shift; + my $server = spawn_h2o(<< "EOT"); +hosts: + default: + paths: + /: + proxy.reverse.url: http://127.0.0.1:$upstream_port + proxy.preserve-host: @{[ $flag ? 'ON' : 'OFF' ]} +EOT + my $res = `curl --silent http://127.0.0.1:$server->{port}/echo-headers`; + like $res, qr/^host: 127.0.0.1:@{[ $flag ? $server->{port} : $upstream_port ]}$/im, 'host header'; + + $res = `curl --silent --dump-header /dev/stdout "http://127.0.0.1:$server->{port}/?resp:status=302&resp:location=http://127.0.0.1:$server->{port}/foo"`; + like $res, qr{^location: http://127\.0\.0\.1:$server->{port}/foo}im, 'location: :server_port'; + warn qq{curl --silent --dump-header /dev/stdout "http://127.0.0.1:$server->{port}/?resp:status=302&resp:location=http://127.0.0.1:$upstream_port/foo"}; + $res = `curl --silent --dump-header /dev/stdout "http://127.0.0.1:$server->{port}/?resp:status=302&resp:location=http://127.0.0.1:$upstream_port/foo"`; + like $res, qr{^location: http://127\.0\.0\.1:$server->{port}/foo}im, 'location :upstream_port'; + }; + + subtest 'ON' => sub { + $doit->(1); + }; + subtest 'OFF' => sub { + $doit->(0); + }; +}; + +subtest 'timeout.io' => sub { + my $server = spawn_h2o(<< "EOT"); +hosts: + default: + paths: + /: + proxy.reverse.url: http://127.0.0.1:$upstream_port + proxy.timeout.io: 2000 +EOT + my $fetch = sub { + my $sleep = shift; + `curl --silent --dump-header /dev/stderr http://127.0.0.1:$server->{port}/sleep-and-respond?sleep=$sleep 2>&1 > /dev/null`; + }; + my $resp = $fetch->(1); + like $resp, qr{^HTTP/1\.1 200 }s, "respond before timeout"; + $resp = $fetch->(3); + like $resp, qr{^HTTP/1\.1 502 }s, "respond after timeout"; +}; + +subtest 'infinite-internal-redirect' => sub { + my $server = spawn_h2o(<< "EOT"); +hosts: + default: + paths: + /: + proxy.reverse.url: http://127.0.0.1:$upstream_port +reproxy: ON +EOT + my $resp = `curl --silent --dump-header /dev/stderr "http://127.0.0.1:$server->{port}/?resp:x-reproxy-url=http://127.0.0.1:$upstream_port/infinite-redirect" 2>&1 > /dev/null`; + like $resp, qr{^HTTP/1\.1 502 }s; +}; + +subtest 'max-delegations' => sub { + my $server = spawn_h2o(<< "EOT"); +hosts: + default: + paths: + /: + proxy.reverse.url: http://127.0.0.1:$upstream_port +reproxy: ON +max-delegations: 0 +EOT + my $resp = `curl --silent --dump-header /dev/stderr "http://127.0.0.1:$server->{port}/?resp:x-reproxy-url=http://127.0.0.1:$upstream_port/index.txt" 2>&1 > /dev/null`; + like $resp, qr{^HTTP/1\.1 502 }s; +}; + +done_testing; -- cgit v1.2.3