Mercurial > hg > nginx-tests

comparison stream_ssl_alpn.t @ 1864:46351d990aee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: simplified stream SSL tests with IO::Socket::SSL. The stream SSL tests which previously used IO::Socket::SSL were converted to use infrastructure in Test::Nginx::Stream where appropriate.
author Maxim Dounin <mdounin@mdounin.ru>
date Thu, 18 May 2023 18:07:15 +0300
parents 58951cf933e1
children 2a0a6035a1af
comparison
equal deleted inserted replaced
1863:dbb7561a9441 1864:46351d990aee
98 98
99 ############################################################################### 99 ###############################################################################
100 100
101 sub get_ssl { 101 sub get_ssl {
102 my (@alpn) = @_; 102 my (@alpn) = @_;
103 my $s = stream('127.0.0.1:' . port(8080));
104 103
105 eval { 104 my $s = stream(
106 local $SIG{ALRM} = sub { die "timeout\n" }; 105 PeerAddr => '127.0.0.1:' . port(8080),
107 local $SIG{PIPE} = sub { die "sigpipe\n" }; 106 SSL => 1,
108 alarm(8); 107 SSL_alpn_protocols => [ @alpn ]
109 IO::Socket::SSL->start_SSL($s->{_socket}, 108 );
110 SSL_alpn_protocols => [ @alpn ],
111 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
112 SSL_error_trap => sub { die $_[1] }
113 );
114 alarm(0);
115 };
116 alarm(0);
117
118 if ($@) {
119 log_in("died: $@");
120 return undef;
121 }
122 109
123 return $s->read(); 110 return $s->read();
124 } 111 }
125 112
126 ############################################################################### 113 ###############################################################################