Fix SSLSocket#close_write and related tests.

Author: ioquatix

lib/async/io/ssl_socket.rb

@@ -89,11 +89,12 @@ def remote_address
 			end
 
 			def close_write
-				self.shutdown(Socket::SHUT_WR)
+				# Invokes SSL_shutdown, which sends a close_notify message to the peer.
+				@io.__send__(:stop)
 			end
 
 			def close_read
-				self.shutdown(Socket::SHUT_RD)
+				@io.to_io.shutdown(Socket::SHUT_RD)
 			end
 
 			def shutdown(how)

spec/async/io/ssl_server_spec.rb

@@ -73,7 +73,7 @@
 				end
 
 				server_task.stop
-			end
+			end.wait
 		end
 	end
 
@@ -123,7 +123,7 @@
 				end
 
 				server_task.stop
-			end
+			end.wait
 		end
 
 		it 'it fails with invalid host' do