Tests: unbreak stream_ssl_realip.t with TLS 1.3.

Author: pluknet

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 192.0.2.1 192.0.2.2 1234 5678${CRLF}"),
 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);
 }
 
 ###############################################################################