diff --git a/ssl_certificate.t b/ssl_certificate.t
index 80e7c88..c15ec2b 100644
--- a/ssl_certificate.t
+++ b/ssl_certificate.t
@@ -200,6 +200,7 @@
 	my ($s, $ssl) = get_ssl_socket($host, $port, $ctx) or return;
 	Net::SSLeay::write($ssl, 'GET / HTTP/1.0' . CRLF . CRLF);
 	my $r = Net::SSLeay::read($ssl);
+	Net::SSLeay::shutdown($ssl);
 	$s->close();
 	return $r unless wantarray();
 	return ($s, $ssl);
diff --git a/stream_ssl_certificate.t b/stream_ssl_certificate.t
index 1655b65..56f6186 100644
--- a/stream_ssl_certificate.t
+++ b/stream_ssl_certificate.t
@@ -182,6 +182,7 @@
 	my ($host, $port, $ctx) = @_;
 	my ($s, $ssl) = get_ssl_socket($host, $port, $ctx) or return;
 	my $r = Net::SSLeay::read($ssl);
+	Net::SSLeay::shutdown($ssl);
 	$s->close();
 	return $r unless wantarray();
 	return ($s, $ssl);