Mercurial > hg > nginx-tests

comparison ssl_sni.t @ 305:f4aab0e66ed0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: better handle the lack of client side SNI support.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 09 Jul 2013 18:27:00 +0400
parents 6a0d934950bc
children e9064d691790
comparison
equal deleted inserted replaced
304:6bee817c9e97 305:f4aab0e66ed0
63 63
64 EOF 64 EOF
65 65
66 eval { require IO::Socket::SSL; die if $IO::Socket::SSL::VERSION < 1.56; }; 66 eval { require IO::Socket::SSL; die if $IO::Socket::SSL::VERSION < 1.56; };
67 plan(skip_all => 'IO::Socket::SSL version >= 1.56 required') if $@; 67 plan(skip_all => 'IO::Socket::SSL version >= 1.56 required') if $@;
68
69 eval {
70 if (IO::Socket::SSL->can('can_client_sni')) {
71 IO::Socket::SSL->can_client_sni() or die;
72 }
73 };
74 plan(skip_all => 'IO::Socket::SSL with OpenSSL SNI support required') if $@;
68 75
69 eval { 76 eval {
70 my $ctx = Net::SSLeay::CTX_new() or die; 77 my $ctx = Net::SSLeay::CTX_new() or die;
71 my $ssl = Net::SSLeay::new($ctx) or die; 78 my $ssl = Net::SSLeay::new($ctx) or die;
72 Net::SSLeay::set_tlsext_host_name($ssl, 'example.org') == 1 or die; 79 Net::SSLeay::set_tlsext_host_name($ssl, 'example.org') == 1 or die;