Mercurial > hg > nginx-tests
diff stream_proxy_ssl.t @ 559:9208d8243926
Tests: stream ssl and proxy ssl tests.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Thu, 23 Apr 2015 14:01:21 +0300 |
parents | |
children | 984bfe661cce |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/stream_proxy_ssl.t Thu Apr 23 14:01:21 2015 +0300 @@ -0,0 +1,119 @@ +#!/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(4); + +$t->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +stream { + proxy_ssl on; + proxy_ssl_session_reuse on; + + 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'); + +############################################################################### + +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; +} + +###############################################################################