X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fwww_listing.t;h=9f71257d1361facc58f8f21cf598783767abfc71;hb=4821798351defce82c102e46d6f5f84f0cdc0e34;hp=e5b797db7f9582c954702ac69d008fa4c453ae8a;hpb=f4f0a3be0864721d90f9557ffe1c513b0289a74b;p=public-inbox.git diff --git a/t/www_listing.t b/t/www_listing.t index e5b797db..9f71257d 100644 --- a/t/www_listing.t +++ b/t/www_listing.t @@ -72,15 +72,7 @@ SKIP: { my $cfgfile = "$tmpdir/config"; my $v2 = "$tmpdir/v2"; my $httpd = 'blib/script/public-inbox-httpd'; - use IO::Socket::INET; - 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(); ok($sock, 'sock created'); my ($host, $port) = ($sock->sockhost, $sock->sockport); my @clone = qw(git clone -q -s --bare); @@ -99,15 +91,15 @@ SKIP: { open $fh, '>', $cfgfile or die; print $fh <<"" or die; [publicinbox "bare"] - mainrepo = $bare->{git_dir} + inboxdir = $bare->{git_dir} url = http://$host/bare address = bare\@example.com [publicinbox "alt"] - mainrepo = $alt + inboxdir = $alt url = http://$host/alt address = alt\@example.com [publicinbox "v2"] - mainrepo = $v2 + inboxdir = $v2 url = http://$host/v2 address = v2\@example.com