Mercurial > hg > nginx-tests
diff ssl_password_file.t @ 1866:a797d7428fa5
Tests: simplified http SSL tests with IO::Socket::SSL.
The http SSL tests which previously used IO::Socket::SSL were converted
to use improved IO::Socket::SSL infrastructure in Test::Nginx.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Thu, 18 May 2023 18:07:19 +0300 |
parents | cdcd75657e52 |
children | b5036a0f9ae0 |
line wrap: on
line diff
--- a/ssl_password_file.t Thu May 18 18:07:17 2023 +0300 +++ b/ssl_password_file.t Thu May 18 18:07:19 2023 +0300 @@ -49,7 +49,7 @@ ssl_password_file password_http; server { - listen 127.0.0.1:8081 ssl; + listen 127.0.0.1:8443 ssl; listen 127.0.0.1:8080; server_name localhost; @@ -132,33 +132,6 @@ # simple tests to ensure that nothing broke with ssl_password_file directive like(http_get('/'), qr/200 OK.*http/ms, 'http'); -like(http_get('/', socket => get_ssl_socket()), qr/200 OK.*https/ms, 'https'); +like(http_get('/', SSL => 1), qr/200 OK.*https/ms, 'https'); ############################################################################### - -sub get_ssl_socket { - my $s; - - eval { - local $SIG{ALRM} = sub { die "timeout\n" }; - local $SIG{PIPE} = sub { die "sigpipe\n" }; - alarm(8); - $s = IO::Socket::SSL->new( - Proto => 'tcp', - PeerAddr => '127.0.0.1:' . port(8081), - SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(), - SSL_error_trap => sub { die $_[1] } - ); - alarm(0); - }; - alarm(0); - - if ($@) { - log_in("died: $@"); - return undef; - } - - return $s; -} - -###############################################################################