Mercurial > hg > nginx-tests
comparison ssl.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 | 847ea345becb |
children | 071e8941e3bf |
comparison
equal
deleted
inserted
replaced
429:89f7a882d692 | 430:a82b02635614 |
---|---|
20 ############################################################################### | 20 ############################################################################### |
21 | 21 |
22 select STDERR; $| = 1; | 22 select STDERR; $| = 1; |
23 select STDOUT; $| = 1; | 23 select STDOUT; $| = 1; |
24 | 24 |
25 eval { | 25 eval { require IO::Socket::SSL; }; |
26 require IO::Socket::SSL; | |
27 }; | |
28 plan(skip_all => 'IO::Socket::SSL not installed') if $@; | 26 plan(skip_all => 'IO::Socket::SSL not installed') if $@; |
27 eval { IO::Socket::SSL::SSL_VERIFY_NONE(); }; | |
28 plan(skip_all => 'IO::Socket::SSL too old') if $@; | |
29 | 29 |
30 my $t = Test::Nginx->new()->has(qw/http http_ssl rewrite/) | 30 my $t = Test::Nginx->new()->has(qw/http http_ssl rewrite/) |
31 ->has_daemon('openssl'); | 31 ->has_daemon('openssl'); |
32 | 32 |
33 $t->plan(4)->write_file_expand('nginx.conf', <<'EOF'); | 33 $t->plan(4)->write_file_expand('nginx.conf', <<'EOF'); |