diff options
author | Eric Wong <e@80x24.org> | 2019-06-30 22:19:38 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-06-30 22:25:23 +0000 |
commit | 3eb26fe04dae68612c841e749abd2848ce78ae59 (patch) | |
tree | 4047806eec0029de5cea7db2b18ec4408d8ec65d /t/httpd-corner.t | |
parent | 0b84d8600368c67080e683e415f7e502a343316b (diff) | |
download | public-inbox-3eb26fe04dae68612c841e749abd2848ce78ae59.tar.gz |
IO::Socket:*->new options are verbose and we can save a bunch of code by putting this into t/common.perl, since the related spawn_listener stuff is already there.
Diffstat (limited to 't/httpd-corner.t')
-rw-r--r-- | t/httpd-corner.t | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/t/httpd-corner.t b/t/httpd-corner.t index 1cfc2565..5efb9d14 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -28,14 +28,7 @@ my $err = "$tmpdir/stderr.log"; my $out = "$tmpdir/stdout.log"; my $httpd = 'blib/script/public-inbox-httpd'; my $psgi = "./t/httpd-corner.psgi"; -my %opts = ( - LocalAddr => '127.0.0.1', - ReuseAddr => 1, - Proto => 'tcp', - Type => SOCK_STREAM, - Listen => 1024, -); -my $sock = IO::Socket::INET->new(%opts); +my $sock = tcp_server(); # Make sure we don't clobber socket options set by systemd or similar # using socket activation: @@ -56,11 +49,7 @@ if ($^O eq 'linux') { } my $upath = "$tmpdir/s"; -my $unix = IO::Socket::UNIX->new( - Listen => 1024, - Type => SOCK_STREAM, - Local => $upath -); +my $unix = unix_server($upath); ok($unix, 'UNIX socket created'); my $pid; END { kill 'TERM', $pid if defined $pid }; |