Mercurial > hg > nginx-tests
view stream_proxy_ssl.t @ 836:a9c4cebcfe69
Tests: adjusted http resolver test with resend.
Don't bother with socket error to force resolver resend. Nginx doesn't handle
well ECONNREFUSED send() error, which results in "500 Internal Server Error".
It may deserve a separate test, though.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 29 Jan 2016 00:40:05 +0300 |
parents | 122cd3a82367 |
children | e9064d691790 |
line wrap: on
line source
#!/usr/bin/perl # (C) Sergey Kandaurov # (C) Nginx, Inc. # Stream tests for proxy to ssl backend. ############################################################################### use warnings; use strict; use Test::More; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/stream stream_ssl http http_ssl/) ->has_daemon('openssl')->plan(5); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } stream { proxy_ssl on; proxy_ssl_session_reuse on; proxy_connect_timeout 2s; server { listen 127.0.0.1:8080; proxy_pass 127.0.0.1:8087; proxy_ssl_session_reuse off; } server { listen 127.0.0.1:8081; proxy_pass 127.0.0.1:8087; } } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8087 ssl; server_name localhost; ssl_certificate_key localhost.key; ssl_certificate localhost.crt; ssl_session_cache builtin; location / { add_header X-Session $ssl_session_reused; } } } EOF $t->write_file('openssl.conf', <<EOF); [ req ] default_bits = 2048 encrypt_key = no distinguished_name = req_distinguished_name [ req_distinguished_name ] EOF $t->write_file('index.html', ''); my $d = $t->testdir(); foreach my $name ('localhost') { system('openssl req -x509 -new ' . "-config '$d/openssl.conf' -subj '/CN=$name/' " . "-out '$d/$name.crt' -keyout '$d/$name.key' " . ">>$d/openssl.out 2>&1") == 0 or die "Can't create certificate for $name: $!\n"; } $t->run(); ############################################################################### like(http_get('/', socket => getconn('127.0.0.1:8080')), qr/200 OK.*X-Session: \./s, 'ssl'); like(http_get('/', socket => getconn('127.0.0.1:8081')), qr/200 OK.*X-Session: \./s, 'ssl 2'); like(http_get('/', socket => getconn('127.0.0.1:8080')), qr/200 OK.*X-Session: \./s, 'ssl reuse session'); like(http_get('/', socket => getconn('127.0.0.1:8081')), qr/200 OK.*X-Session: r/s, 'ssl reuse session 2'); my $s = http('', start => 1); sleep 3; like(http_get('/', socket => $s), qr/200 OK/, 'proxy connect timeout'); ############################################################################### sub getconn { my $peer = shift; my $s = IO::Socket::INET->new( Proto => 'tcp', PeerAddr => $peer || '127.0.0.1:8080' ) or die "Can't connect to nginx: $!\n"; return $s; } ###############################################################################