about summary refs log tree commit homepage
path: root/t/perf-nntpd.t
diff options
context:
space:
mode:
Diffstat (limited to 't/perf-nntpd.t')
-rw-r--r--t/perf-nntpd.t9
1 files changed, 1 insertions, 8 deletions
diff --git a/t/perf-nntpd.t b/t/perf-nntpd.t
index ce3cc409..29d6aaed 100644
--- a/t/perf-nntpd.t
+++ b/t/perf-nntpd.t
@@ -44,14 +44,7 @@ if (($ENV{NNTP_TEST_URL} || '') =~ m!\Anntp://([^/]+)/([^/]+)\z!) {
                 close $fh or die "close($pi_config): $!";
         }
 
-        %opts = (
-                LocalAddr => '127.0.0.1',
-                ReuseAddr => 1,
-                Proto => 'tcp',
-                Listen => 1024,
-        );
-        my $sock = IO::Socket::INET->new(%opts);
-
+        my $sock = tcp_server();
         ok($sock, 'sock created');
         my $cmd = [ $nntpd, '-W0' ];
         $pid = spawn_listener({ PI_CONFIG => $pi_config }, $cmd, [$sock]);