tests: add tcp_connect() helper

IO::Socket::INET->new is rather verbose with the options hash,
extract it into a standalone sub

1 files changed, 2 insertions, 7 deletions

diff --git a/t/httpd-corner.t b/t/httpd-corner.t
index 35318b50..c72bc9c6 100644
--- a/t/httpd-corner.t
+++ b/t/httpd-corner.t
@@ -157,14 +157,9 @@ SKIP: {
 }
 
 sub conn_for {
-        my ($sock, $msg) = @_;
-        my $conn = IO::Socket::INET->new(
-                                PeerAddr => $sock->sockhost,
-                                PeerPort => $sock->sockport,
-                                Proto => 'tcp',
-                                Type => SOCK_STREAM);
+        my ($dest, $msg) = @_;
+        my $conn = tcp_connect($dest);
         ok($conn, "connected for $msg");
-        $conn->autoflush(1);
         setsockopt($conn, IPPROTO_TCP, TCP_NODELAY, 1);
         return $conn;
 }