# HG changeset patch # User Maxim Dounin # Date 1404822871 -14400 # Node ID a82b02635614994f6d195566ee9e9f4991f8c064 # Parent 89f7a882d692bbc61838ed3eddbabe8225125a6a Tests: skip ssl tests with ancient IO::Socket::SSL. The IO::Socket::SSL::SSL_VERIFY_NONE was introduced in IO::Socket:SSL 1.31 (2009.09.25), and it seems to be too new for some Linux distros (notably, CentOS 5). diff --git a/ssl.t b/ssl.t --- a/ssl.t +++ b/ssl.t @@ -22,10 +22,10 @@ use Test::Nginx; select STDERR; $| = 1; select STDOUT; $| = 1; -eval { - require IO::Socket::SSL; -}; +eval { require IO::Socket::SSL; }; plan(skip_all => 'IO::Socket::SSL not installed') if $@; +eval { IO::Socket::SSL::SSL_VERIFY_NONE(); }; +plan(skip_all => 'IO::Socket::SSL too old') if $@; my $t = Test::Nginx->new()->has(qw/http http_ssl rewrite/) ->has_daemon('openssl'); diff --git a/ssl_password_file.t b/ssl_password_file.t --- a/ssl_password_file.t +++ b/ssl_password_file.t @@ -25,8 +25,11 @@ use Test::Nginx; select STDERR; $| = 1; select STDOUT; $| = 1; -eval { require IO::Socket::SSL; }; +eval { require IO::Socket::SSL; IO::Socket::SSL::SSL_VERIFY_NONE(); }; plan(skip_all => 'IO::Socket::SSL not installed') if $@; +eval { IO::Socket::SSL::SSL_VERIFY_NONE(); }; +plan(skip_all => 'IO::Socket::SSL too old') if $@; + plan(skip_all => 'win32') if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http http_ssl/)->has_daemon('openssl');