diff options
Diffstat (limited to 't/common.perl')
-rw-r--r-- | t/common.perl | 15 |
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; |