diff options
Diffstat (limited to 'debian/vendor-h2o/t/80issues-from-proxy-reproxy-to-different-host.t')
-rw-r--r-- | debian/vendor-h2o/t/80issues-from-proxy-reproxy-to-different-host.t | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/debian/vendor-h2o/t/80issues-from-proxy-reproxy-to-different-host.t b/debian/vendor-h2o/t/80issues-from-proxy-reproxy-to-different-host.t deleted file mode 100644 index 9a05a1d..0000000 --- a/debian/vendor-h2o/t/80issues-from-proxy-reproxy-to-different-host.t +++ /dev/null @@ -1,79 +0,0 @@ -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 => 'curl not found' - unless prog_exists('curl'); -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; - -# start upstream -my $upstream = empty_port(); -my $upstream_guard = spawn_server( - argv => [ - qw(plackup -s Starlet --keepalive-timeout 100 --access-log /dev/null --listen), "127.0.0.1:$upstream", - ASSETS_DIR . "/upstream.psgi", - ], - is_ready => sub { - check_port($upstream); - }, -); - -my $error_upstream = empty_port(); -my $error_upstream_guard = spawn_server( - argv => [ - qw(plackup -s Starlet --keepalive-timeout 100 --access-log /dev/null --listen), "127.0.0.1:$error_upstream", - "-e", 'sub { [200, [], [123]] }', - ], - is_ready => sub { - check_port($error_upstream); - }, -); - -subtest "internal-redirect-from-proxy" => sub { - my $server = spawn_h2o(<< "EOT"); -hosts: - default: - paths: - "/": - proxy.reverse.url: http://127.0.0.1:$upstream/ - error-doc: - status: 404 - url: http://127.0.0.1:$error_upstream/ -EOT - my ($headers, $body) = run_prog("curl --silent --dump-header /dev/stderr http://127.0.0.1:$server->{port}/index.txt"); - like $headers, qr{^HTTP/1\.1 200 }is; - is $body, "hello\n"; - - ($headers, $body) = run_prog("curl --silent --dump-header /dev/stderr http://127.0.0.1:$server->{port}/notfound"); - like $headers, qr{^HTTP/1\.1 404 }is; - is $body, "123"; -}; - -subtest "internal-redirect-within-proxy" => sub { - plan skip_all => 'mruby support is off' - unless server_features()->{mruby}; - my $server = spawn_h2o(<< "EOT"); -reproxy: ON -hosts: - default: - paths: - "/": - mruby.handler: | - Proc.new do |env| - [200, { "x-reproxy-url" => "/proxy/?resp:status=302&resp:location=/index.txt" }, ["from mruby"]] - end - "/proxy": - proxy.reverse.url: http://127.0.0.1:$upstream/ -EOT - my ($headers, $body) = run_prog("curl --max-redirs 0 --silent --dump-header /dev/stderr http://127.0.0.1:$server->{port}/"); - like $headers, qr{^HTTP/1\.1 200 }is; - is $body, "hello\n"; -}; - -done_testing; |