about summary refs log tree commit homepage
path: root/t/v2writable.t
diff options
context:
space:
mode:
Diffstat (limited to 't/v2writable.t')
-rw-r--r--t/v2writable.t9
1 files changed, 1 insertions, 8 deletions
diff --git a/t/v2writable.t b/t/v2writable.t
index 8f32fbe5..5406fd1b 100644
--- a/t/v2writable.t
+++ b/t/v2writable.t
@@ -134,13 +134,6 @@ if ('ensure git configs are correct') {
         use IO::Socket::INET;
         my $err = "$mainrepo/stderr.log";
         my $out = "$mainrepo/stdout.log";
-        my %opts = (
-                LocalAddr => '127.0.0.1',
-                ReuseAddr => 1,
-                Proto => 'tcp',
-                Type => SOCK_STREAM,
-                Listen => 1024,
-        );
         my $group = 'inbox.comp.test.v2writable';
         my $pi_config = "$mainrepo/pi_config";
         open my $fh, '>', $pi_config or die "open: $!\n";
@@ -153,7 +146,7 @@ if ('ensure git configs are correct') {
 EOF
         ;
         close $fh or die "close: $!\n";
-        my $sock = IO::Socket::INET->new(%opts);
+        my $sock = tcp_server();
         ok($sock, 'sock created');
         my $pid;
         my $len;