diff options
author | Eric Wong <e@80x24.org> | 2019-11-14 06:41:12 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-11-15 01:09:11 +0000 |
commit | 6c2be548847c911c7db7a97118377909bb9ba404 (patch) | |
tree | 7308082a256314523fc1b0bad0b71b930baceb9e | |
parent | 4941f43f0fcac72ba663bc96abef19fe913becd4 (diff) | |
download | public-inbox-6c2be548847c911c7db7a97118377909bb9ba404.tar.gz |
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.
-rw-r--r-- | t/common.perl | 10 | ||||
-rw-r--r-- | t/httpd-corner.t | 10 |
2 files changed, 10 insertions, 10 deletions
diff --git a/t/common.perl b/t/common.perl index 053a935a..d4a0fcd2 100644 --- 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( diff --git a/t/httpd-corner.t b/t/httpd-corner.t index 75573c3e..b063d9fa 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -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'); |