changeset 1458:e95133e85798

Tests: unbreak stream_ssl_realip.t with TLS 1.3.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 02 Apr 2019 13:21:47 +0300
parents 80911c4fe023
children 2710e9505937
files stream_ssl_realip.t
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/stream_ssl_realip.t
+++ b/stream_ssl_realip.t
@@ -17,8 +17,7 @@ use Socket qw/ $CRLF /;
 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 @@ like(pp_get(8088, "PROXY UNKNOWN TCP4 19
 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 @@ sub pp_get {
 		return undef;
 	}
 
-	return $s->read();
+	http_end($s);
 }
 
 ###############################################################################