Mercurial > hg > nginx-tests
view stream_proxy_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 | 882267679006 |
children | 8ef51dbb5d69 |
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:8082; proxy_ssl_session_reuse off; } server { listen 127.0.0.1:8081; proxy_pass 127.0.0.1:8082; } } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8082 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('/'), 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'); 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 ) or die "Can't connect to nginx: $!\n"; return $s; } ###############################################################################