# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1525777162 -10800
# Node ID 918bf90466e0442772aecafee92e8f1eda4d460c
# Parent  6eb3dd2d4d5ac37a1b81708d6fa2d52df93bd75e
Tests: hide startup warnings about deprecated ssl.

diff --git a/mail_ssl.t b/mail_ssl.t
--- a/mail_ssl.t
+++ b/mail_ssl.t
@@ -161,7 +161,10 @@ foreach my $name ('localhost', 'inherits
 
 my $ctx = Net::SSLeay::CTX_new() or die("Failed to create SSL_CTX $!");
 $t->write_file('password', 'localhost');
+
+open OLDERR, ">&", \*STDERR; close STDERR;
 $t->run();
+open STDERR, ">&", \*OLDERR;
 
 ###############################################################################
 
diff --git a/ssl.t b/ssl.t
--- a/ssl.t
+++ b/ssl.t
@@ -190,7 +190,9 @@ my $ctx = new IO::Socket::SSL::SSL_Conte
 	SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
 	SSL_session_cache_size => 100);
 
+open OLDERR, ">&", \*STDERR; close STDERR;
 $t->run();
+open STDERR, ">&", \*OLDERR;
 
 ###############################################################################