-
Notifications
You must be signed in to change notification settings - Fork 0
/
50reverse-proxy-https.t
70 lines (65 loc) · 2.17 KB
/
50reverse-proxy-https.t
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
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');
my $upstream_port = empty_port();
my $upstream = spawn_server(
argv => [
qw(
plackup -s Standalone --ssl=1 --ssl-key-file=examples/h2o/server.key --ssl-cert-file=examples/h2o/server.crt --port
),
$upstream_port, ASSETS_DIR . "/upstream.psgi"
],
is_ready => sub {
check_port($upstream_port);
},
);
subtest "reverse-proxy" => sub {
my $server = spawn_h2o(<< "EOT");
hosts:
default:
paths:
"/verify":
proxy.reverse.url: https://127.0.0.1:$upstream_port
"/no-verify":
proxy.reverse.url: https://127.0.0.1:$upstream_port
proxy.ssl.verify-peer: OFF
"/wikipedia":
proxy.reverse.url: https://en.wikipedia.org/wiki/Main_Page
EOT
run_with_curl($server, sub {
my ($proto, $port, $curl) = @_;
my $resp = `$curl --silent --dump-header /dev/stderr --max-redirs 0 $proto://127.0.0.1:$port/verify/ 2>&1 > /dev/null`;
like $resp, qr{^HTTP/[^ ]* 502\s}is;
$resp = `$curl --silent --dump-header /dev/stderr --max-redirs 0 $proto://127.0.0.1:$port/no-verify/ 2>&1 > /dev/null`;
unlike $resp, qr{^HTTP/[^ ]* 502\s}is;
$resp = `$curl --silent --dump-header /dev/stderr --max-redirs 0 $proto://127.0.0.1:$port/wikipedia/ 2>&1 > /dev/null`;
like $resp, qr{^HTTP/[^ ]* 200\s}is;
});
};
subtest "reproxy" => sub {
plan skip_all => "mruby support is off"
unless server_features()->{mruby};
my $server = spawn_h2o(<< "EOT");
proxy.ssl.verify-peer: OFF
hosts:
default:
paths:
"/":
reproxy: ON
mruby.handler: |
Proc.new do |env|
[200, {"x-reproxy-url" => "https://127.0.0.1:$upstream_port/index.txt"}, ["should never see this"]]
end
EOT
run_with_curl($server, sub {
my ($proto, $port, $curl) = @_;
my $resp = `$curl --silent --dump-header /dev/stdout --max-redirs 0 $proto://127.0.0.1:$port/`;
like $resp, qr{^HTTP/[^ ]* 200}im;
like $resp, qr{^hello$}m;
});
};
done_testing();