1 files changed, 14 insertions, 1 deletions
diff --git a/t/common.perl b/t/common.perl
index 91d65c5f..ccc7be46 100644
--- a/t/common.perl
+++ b/t/common.perl
@@ -1,10 +1,11 @@
-# Copyright (C) 2015-2018 all contributors <meta@public-inbox.org>
+# Copyright (C) 2015-2019 all contributors <meta@public-inbox.org>
  # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
  
  use Fcntl qw(FD_CLOEXEC F_SETFD F_GETFD);
  use POSIX qw(dup2);
  use strict;
  use warnings;
+use IO::Socket::INET;
  
  sub stream_to_string {
          my ($res) = @_;
@@ -38,6 +39,18 @@ sub unix_server ($) {
          $s;
  }
  
+sub tcp_connect {
+        my ($dest, %opt) = @_;
+        my $s = IO::Socket::INET->new(
+                Proto => 'tcp',
+                Type => Socket::SOCK_STREAM(),
+                PeerAddr => $dest->sockhost . ':' . $dest->sockport,
+                %opt,
+        );
+        $s->autoflush(1);
+        $s;
+}
+
  sub spawn_listener {
          my ($env, $cmd, $socks) = @_;
          my $pid = fork;