lei_mirror: show child error error code

[public-inbox.git] / xt / git-http-backend.t

diff --git a/xt/git-http-backend.t b/xt/git-http-backend.t
index dcff72cc3389058fd374a73205f2f01b48eb9943..1f3ba0633429856e478fa28f90749e0cbc4dcf00 100644 (file)
--- a/xt/git-http-backend.t
+++ b/xt/git-http-backend.t
@@ -1,4 +1,4 @@
-# Copyright (C) 2016-2021 all contributors <meta@public-inbox.org>
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # Ensure buffering behavior in -httpd doesn't cause runaway memory use
@@ -19,8 +19,7 @@ my ($tmpdir, $for_destroy) = tmpdir();
 my $err = "$tmpdir/stderr.log";
 my $out = "$tmpdir/stdout.log";
 my $sock = tcp_server();
-my $host = $sock->sockhost;
-my $port = $sock->sockport;
+my ($host, $port) = tcp_host_port($sock);
 my $td;
 
 my $get_maxrss = sub {
@@ -37,7 +36,6 @@ my $get_maxrss = sub {
 };
 
 {
-       ok($sock, 'sock created');
        my $cmd = [ '-httpd', '-W0', "--stdout=$out", "--stderr=$err", $psgi ];
        $td = start_script($cmd, undef, { 3 => $sock });
 }
@@ -55,7 +53,7 @@ SKIP: {
                }
        }
        skip "no packs found in $git_dir" unless defined $pack;
-       if ($pack !~ m!(/objects/pack/pack-[a-f0-9]{40}.pack)\z!) {
+       if ($pack !~ m!(/objects/pack/pack-[a-f0-9]{40,64}.pack)\z!) {
                skip "bad pack name: $pack";
        }
        my $url = $1;