Mercurial > hg > nginx-tests
comparison ssl_password_file.t @ 430:a82b02635614
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'); |