t/common: move unix_server to t/httpd-corner.t

[public-inbox.git] / t / common.perl

diff --git a/t/common.perl b/t/common.perl
index 053a935a8df510f61e5874d3d381bd1cedeeaa46..d4a0fcd25144eb4eccacd265859a95e5410cb9ec 100644 (file)
--- a/t/common.perl
+++ b/t/common.perl
@@ -18,16 +18,6 @@ sub tcp_server () {
        )
 }
 
-sub unix_server ($) {
-       my $s = IO::Socket::UNIX->new(
-               Listen => 1024,
-               Type => Socket::SOCK_STREAM(),
-               Local => $_[0],
-       );
-       $s->blocking(0);
-       $s;
-}
-
 sub tcp_connect {
        my ($dest, %opt) = @_;
        my $s = IO::Socket::INET->new(