spawn_pp: use `which()' properly for pure-Perl spawn

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

diff --git a/t/solver_git.t b/t/solver_git.t
index 06d75816a59d8cc895fcd62f1837265060234e46..0090bc06d6165c9fd44ca57745c26b3413cc33e0 100644 (file)
--- a/t/solver_git.t
+++ b/t/solver_git.t
@@ -336,7 +336,7 @@ EOF
                        open $fh, '>', "$tmpdir/stderr.log" or xbail $!;
                        ok($s =~ s/^fatal: your current branch.*?\n//sm,
                                'got current branch warning');
-                       ok($s =~ s/^.*? exit status=[1-9]+ .*?\n//sm,
+                       ok($s =~ s/^.*? exit status=[1-9]+\n\z//sm,
                                'got exit status warning');
                        is($s, '', 'no unexpected warnings on empty coderepo');
                }
@@ -396,6 +396,21 @@ EOF
                is($res->code, 200, 'got 200 for a directory');
                $got = $res->content;
                like($got, qr/\bgit ls-tree\b/, 'ls-tree help shown');
+
+               $res = $cb->(GET('/public-inbox/tree/?h=no-branch'));
+               is($res->code, 404, 'got 404 for non-existent ref root');
+               $res = $cb->(GET('/public-inbox/tree/README?h=no-file'));
+               is($res->code, 404, 'got 404 for non-existent ref README');
+               $res = $cb->(GET('/public-inbox/tree/Documentation?h=no-dir'));
+               is($res->code, 404, 'got 404 for non-existent ref directory');
+
+               $res = $cb->(GET('/public-inbox/tags.atom'));
+               is($res->code, 200, 'Atom feed');
+               SKIP: {
+                       require_mods('XML::TreePP', 1);
+                       my $t = XML::TreePP->new->parse($res->content);
+                       ok(scalar @{$t->{feed}->{entry}}, 'got tag entries');
+               }
        };
        test_psgi(sub { $www->call(@_) }, $client);
        my $env = { PI_CONFIG => $cfgpath, TMPDIR => $tmpdir };