Mercurial > hg > nginx-tests
view stream_upstream_zone_ssl.t @ 1021:ebdf239722b9
Tests: relaxed proxy_cache_lock.t nolock tests to fix on Solaris.
Assumed that the order of responses being arrived in nolock case may be ignored.
An important part of such case is that the only last response should be cached.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 02 Sep 2016 12:17:35 +0300 |
parents | 325db3d62466 |
children | 8ef51dbb5d69 |
line wrap: on
line source
#!/usr/bin/perl # (C) Sergey Kandaurov # (C) Nginx, Inc. # Stream tests for upstream zone with 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(qw/stream_upstream_zone/)->has_daemon('openssl')->plan(8); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } stream { proxy_ssl on; proxy_ssl_session_reuse on; upstream u { zone u 1m; server 127.0.0.1:8084; } upstream u2 { zone u2 1m; server 127.0.0.1:8084 backup; server 127.0.0.1:8085 down; } server { listen 127.0.0.1:8080; proxy_pass u; proxy_ssl_session_reuse off; } server { listen 127.0.0.1:8081; proxy_pass u; } server { listen 127.0.0.1:8082; proxy_pass u2; proxy_ssl_session_reuse off; } server { listen 127.0.0.1:8083; proxy_pass u2; } } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8084 ssl; 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('/'), qr/200 OK.*X-Session: \./s, 'ssl'); like(http_get('/', socket => getconn('127.0.0.1:' . port(8081))), qr/200 OK.*X-Session: \./s, 'ssl 2'); like(http_get('/'), qr/200 OK.*X-Session: \./s, 'ssl reuse session'); like(http_get('/', socket => getconn('127.0.0.1:' . port(8081))), qr/200 OK.*X-Session: r/s, 'ssl reuse session 2'); like(http_get('/', socket => getconn('127.0.0.1:' . port(8082))), qr/200 OK.*X-Session: \./s, 'ssl backup'); like(http_get('/', socket => getconn('127.0.0.1:' . port(8083))), qr/200 OK.*X-Session: \./s, 'ssl backup 2'); like(http_get('/', socket => getconn('127.0.0.1:' . port(8082))), qr/200 OK.*X-Session: \./s, 'ssl reuse session backup'); like(http_get('/', socket => getconn('127.0.0.1:' . port(8083))), qr/200 OK.*X-Session: r/s, 'ssl reuse session backup 2'); ############################################################################### sub getconn { my $peer = shift; my $s = IO::Socket::INET->new( Proto => 'tcp', PeerAddr => $peer ) or die "Can't connect to nginx: $!\n"; return $s; } ###############################################################################