inbox: use PublicInbox::Git::host_prefix_url for base_url

[public-inbox.git] / t / solver_git.t

diff --git a/t/solver_git.t b/t/solver_git.t
index 0c272d777c752ce9a10b3a003f009d1c0dbc5f4a..7c5619a7a15d31ebcc95a6ceb005e902bbe2b24f 100644 (file)
--- a/t/solver_git.t
+++ b/t/solver_git.t
@@ -48,7 +48,7 @@ $ibx->{-repo_objs} = [ $git ];
 my $res;
 my $solver = PublicInbox::SolverGit->new($ibx, sub { $res = $_[0] });
 open my $log, '+>>', "$inboxdir/solve.log" or die "open: $!";
-my $psgi_env = { 'psgi.errors' => *STDERR };
+my $psgi_env = { 'psgi.errors' => *STDERR, 'psgi.url_scheme' => 'http' };
 $solver->solve($psgi_env, $log, '69df7d5', {});
 ok($res, 'solved a blob!');
 my $wt_git = $res->[0];
@@ -127,7 +127,7 @@ SKIP: {
        while (my ($label, $size) = each %bin) {
                pipe(my ($rout, $wout)) or die;
                pipe(my ($rin, $win)) or die;
-               my $rdr = { 0 => fileno($rin), 1 => fileno($wout) };
+               my $rdr = { 0 => $rin, 1 => $wout };
                my $pid = spawn($cmd , $env, $rdr);
                $wout = $rin = undef;
                print { $win } ("\0" x $size) or die;