# HG changeset patch # User Sergey Kandaurov # Date 1373380020 -14400 # Node ID f4aab0e66ed052524a06b193f5f3afde1444903c # Parent 6bee817c9e97382a2a73edae2528caacda56bf32 Tests: better handle the lack of client side SNI support. diff --git a/ssl_sni.t b/ssl_sni.t --- a/ssl_sni.t +++ b/ssl_sni.t @@ -67,6 +67,13 @@ eval { require IO::Socket::SSL; die if $ plan(skip_all => 'IO::Socket::SSL version >= 1.56 required') if $@; eval { + if (IO::Socket::SSL->can('can_client_sni')) { + IO::Socket::SSL->can_client_sni() or die; + } +}; +plan(skip_all => 'IO::Socket::SSL with OpenSSL SNI support required') if $@; + +eval { my $ctx = Net::SSLeay::CTX_new() or die; my $ssl = Net::SSLeay::new($ctx) or die; Net::SSLeay::set_tlsext_host_name($ssl, 'example.org') == 1 or die;