1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
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;
|
