No ext_urls

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

diff --git a/t/solver_git.t b/t/solver_git.t
index d8942747f2106e082735b1ec9bdb2ad2761c34c0..c65d9785cf1f8f0fb0bd92f547aa52b0f0ab37c2 100644 (file)
--- a/t/solver_git.t
+++ b/t/solver_git.t
@@ -263,6 +263,16 @@ SKIP: {
        cgiturl = http://example.com/binfoo
 EOF
        close $cfgfh or die;
+       my $exp_digest;
+       {
+               my $exp = xqx([qw(git archive --format=tar.gz
+                               --prefix=public-inbox-1.0.0/ v1.0.0)],
+                               { GIT_DIR => $git_dir });
+               is($?, 0, 'no error from git archive');
+               ok(length($exp) > 1024, 'expected archive generated');
+               $exp_digest = git_sha(256, \$exp)->hexdigest;
+       };
+
        my $cfg = PublicInbox::Config->new($cfgpath);
        my $www = PublicInbox::WWW->new($cfg);
        my $client = sub {
@@ -283,7 +293,7 @@ EOF
                is($res->code, 404, 'failure with null OID');
 
                $res = $cb->(GET("/$name/$non_existent/s/"));
-               is($res->code, 404, 'failure with null OID');
+               is($res->code, 404, 'failure with non-existent OID');
 
                $res = $cb->(GET("/$name/$v1_0_0_tag/s/"));
                is($res->code, 200, 'shows commit (unabbreviated)');
@@ -320,18 +330,16 @@ EOF
                defined($ENV{PLACK_TEST_EXTERNALSERVER_URI}) or
                        open STDERR, '>&', $olderr or xbail "open: $!";
                is($res->code, 200, 'coderepo summary (binfoo)');
-               if (ok(-s "$tmpdir/stderr.log")) {
-                       open my $fh, '<', "$tmpdir/stderr.log" or xbail $!;
-                       my $s = do { local $/; <$fh> };
-                       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,
-                               'got exit status warning');
-                       is($s, '', 'no unexpected warnings on empty coderepo');
-               }
+               ok(!-s "$tmpdir/stderr.log");
                $res = $cb->(GET('/public-inbox/'));
                is($res->code, 200, 'coderepo summary (public-inbox)');
+
+               my $tip = 'invalid-'.int(rand(0xdeadbeef));
+               $res = $cb->(GET('/public-inbox/?h='.$tip));
+               is($res->code, 200, 'coderepo summary on dead branch');
+               like($res->content, qr/no commits in `\Q$tip\E', yet/,
+                       'lack of commits noted');
+
                $res = $cb->(GET('/public-inbox'));
                is($res->code, 301, 'redirected');
 
@@ -341,14 +349,11 @@ EOF
                is($res->header('Content-Disposition'),
                        qq'inline; filename="$fn"', 'c-d header');
                is($res->header('ETag'), qq'"$v1_0_0_rev"', 'etag header');
-               my $exp = xqx([qw(git archive --format=tar.gz
-                               --prefix=public-inbox-1.0.0/ v1.0.0)],
-                               { GIT_DIR => $git_dir });
+
                my $got = $res->content;
-               is(length($got), length($exp),
-                       "length matches installed `git archive' output") and
-               is(git_sha(1, \$got)->hexdigest, git_sha(1, \$exp)->hexdigest,
+               is(git_sha(256, \$got)->hexdigest, $exp_digest,
                        "content matches installed `git archive' output");
+               undef $got;
 
                $fn = 'public-inbox-1.0.2.tar.gz';
                $res = $cb->(GET("/public-inbox/snapshot/$fn"));
@@ -357,6 +362,56 @@ EOF
                $fn = 'public-inbox-1.0.0.tar.bz2';
                $res = $cb->(GET("/public-inbox/snapshot/$fn"));
                is($res->code, 404, '404 on unconfigured snapshot format');
+
+               $res = $cb->(GET('/public-inbox/atom/'));
+               is($res->code, 200, 'Atom feed');
+               SKIP: {
+                       require_mods('XML::TreePP', 1);
+                       my $t = XML::TreePP->new->parse($res->content);
+                       is(scalar @{$t->{feed}->{entry}}, 50,
+                               'got 50 entries');
+
+                       $res = $cb->(GET('/public-inbox/atom/COPYING'));
+                       is($res->code, 200, 'file Atom feed');
+                       $t = XML::TreePP->new->parse($res->content);
+                       ok($t->{feed}->{entry}, 'got entry');
+
+                       $res = $cb->(GET('/public-inbox/atom/README.md'));
+                       is($res->code, 404, '404 on missing file Atom feed');
+
+                       $res = $cb->(GET('/public-inbox/atom/?h=gone'));
+                       is($res->code, 404, '404 on missing Atom feed branch');
+               }
+
+               $res = $cb->(GET('/public-inbox/tree/'));
+               is($res->code, 200, 'got 200 for root listing');
+               $got = $res->content;
+               like($got, qr/\bgit ls-tree\b/, 'ls-tree help shown');
+
+               $res = $cb->(GET('/public-inbox/tree/README'));
+               is($res->code, 200, 'got 200 for regular file');
+               $got = $res->content;
+               like($got, qr/\bgit show\b/, 'git show help shown');
+
+               $res = $cb->(GET('/public-inbox/tree/Documentation'));
+               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 };