Tests: unbreak stream_ssl_realip.t with TLS 1.3.
diff --git a/stream_ssl_realip.t b/stream_ssl_realip.t
index 79cb65d..565e427 100644
--- a/stream_ssl_realip.t
+++ b/stream_ssl_realip.t
@@ -17,8 +17,7 @@
BEGIN { use FindBin; chdir($FindBin::Bin); }
use lib 'lib';
-use Test::Nginx;
-use Test::Nginx::Stream qw/ stream /;
+use Test::Nginx qw/ :DEFAULT http_end /;
###############################################################################
@@ -128,14 +127,14 @@
sub pp_get {
my ($port, $proxy) = @_;
- my $s = stream(PeerPort => port($port));
- $s->write($proxy);
+ my $s = IO::Socket::INET->new('127.0.0.1:' . port($port)) or return;
+ http($proxy, start => 1, socket => $s);
eval {
local $SIG{ALRM} = sub { die "timeout\n" };
local $SIG{PIPE} = sub { die "sigpipe\n" };
alarm(8);
- IO::Socket::SSL->start_SSL($s->{_socket},
+ IO::Socket::SSL->start_SSL($s,
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
SSL_error_trap => sub { die $_[1] }
);
@@ -148,7 +147,7 @@
return undef;
}
- return $s->read();
+ http_end($s);
}
###############################################################################