Mercurial > hg > nginx-tests

comparison ssl_password_file.t @ 430:a82b02635614

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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).
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 08 Jul 2014 16:34:31 +0400
parents 1ac74b568503
children 05c46688b54b
comparison
equal deleted inserted replaced
429:89f7a882d692 430:a82b02635614
23 ############################################################################### 23 ###############################################################################
24 24
25 select STDERR; $| = 1; 25 select STDERR; $| = 1;
26 select STDOUT; $| = 1; 26 select STDOUT; $| = 1;
27 27
28 eval { require IO::Socket::SSL; }; 28 eval { require IO::Socket::SSL; IO::Socket::SSL::SSL_VERIFY_NONE(); };
29 plan(skip_all => 'IO::Socket::SSL not installed') if $@; 29 plan(skip_all => 'IO::Socket::SSL not installed') if $@;
30 eval { IO::Socket::SSL::SSL_VERIFY_NONE(); };
31 plan(skip_all => 'IO::Socket::SSL too old') if $@;
32
30 plan(skip_all => 'win32') if $^O eq 'MSWin32'; 33 plan(skip_all => 'win32') if $^O eq 'MSWin32';
31 34
32 my $t = Test::Nginx->new()->has(qw/http http_ssl/)->has_daemon('openssl'); 35 my $t = Test::Nginx->new()->has(qw/http http_ssl/)->has_daemon('openssl');
33 36
34 plan(skip_all => 'no ssl_password_file') unless $t->has_version('1.7.2'); 37 plan(skip_all => 'no ssl_password_file') unless $t->has_version('1.7.2');