]> Sergey Matveev's repositories - public-inbox.git/commitdiff
t/common: move unix_server to t/httpd-corner.t
authorEric Wong <e@80x24.org>
Thu, 14 Nov 2019 06:41:12 +0000 (06:41 +0000)
committerEric Wong <e@80x24.org>
Fri, 15 Nov 2019 01:09:11 +0000 (01:09 +0000)
unix_server() is not commonly used, only t/httpd-corner.t uses
it and most HTTP tests use TCP since most HTTP libraries only
support TCP.

t/common.perl
t/httpd-corner.t

index 053a935a8df510f61e5874d3d381bd1cedeeaa46..d4a0fcd25144eb4eccacd265859a95e5410cb9ec 100644 (file)
@@ -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(
index 75573c3ef23a423a1238320b2b70cea592834a19..b063d9fa8d9f9658e1ef54f2e7c699b8faa51030 100644 (file)
@@ -51,6 +51,16 @@ if ($^O eq 'linux') {
        setsockopt($sock, SOL_SOCKET, $var, $accf_arg) or die "setsockopt: $!";
 }
 
+sub unix_server ($) {
+       my $s = IO::Socket::UNIX->new(
+               Listen => 1024,
+               Type => Socket::SOCK_STREAM(),
+               Local => $_[0],
+       );
+       $s->blocking(0);
+       $s;
+}
+
 my $upath = "$tmpdir/s";
 my $unix = unix_server($upath);
 ok($unix, 'UNIX socket created');