t/lei-watch: avoid race between glob + readlink

[public-inbox.git] / t / extindex-psgi.t

diff --git a/t/extindex-psgi.t b/t/extindex-psgi.t
index 6f62b5a035be0cd040a78876f8609116e4d5d4a7..4e26962e06c923b4b31901933eed61854bf3d07d 100644 (file)
--- a/t/extindex-psgi.t
+++ b/t/extindex-psgi.t
@@ -28,6 +28,8 @@ run_script([qw(-extindex --all), "$tmpdir/eidx"], $env) or BAIL_OUT;
 [extindex "all"]
        topdir = $tmpdir/eidx
        url = http://bogus.example.com/all
+[publicinbox]
+       wwwlisting = all
 EOM
 }
 my $www = PublicInbox::WWW->new(PublicInbox::Config->new($pi_config));
@@ -40,6 +42,31 @@ my $client = sub {
                'Host: header respected in Atom feed');
        unlike($res->content, qr!http://bogus\.example\.com/!s,
                'default URL ignored with different host header');
+
+       $res = $cb->(GET('/all/_/text/config/'));
+       is($res->code, 200, '/text/config HTML');
+       $res = $cb->(GET('/all/_/text/config/raw'));
+       is($res->code, 200, '/text/config raw');
+       my $f = "$tmpdir/extindex.config";
+       open my $fh, '>', $f or xbail $!;
+       print $fh $res->content or xbail $!;
+       close $fh or xbail $!;
+       my $cfg = PublicInbox::Config->git_config_dump($f);
+       is($?, 0, 'no errors from git-config parsing');
+       ok($cfg->{'extindex.all.topdir'}, 'extindex.topdir defined');
+
+       $res = $cb->(GET('/all/all.mbox.gz'));
+       is($res->code, 200, 'all.mbox.gz');
+
+       $res = $cb->(GET('/'));
+       like($res->content, qr!\Qhttp://bogus.example.com/all\E!,
+               '/all listed');
+       $res = $cb->(GET('/?q='));
+       is($res->code, 200, 'no query means all inboxes');
+       $res = $cb->(GET('/?q=nonexistent'));
+       is($res->code, 404, 'no inboxes matched');
+       unlike($res->content, qr!no inboxes, yet!,
+               'we have inboxes, just no matches');
 };
 test_psgi(sub { $www->call(@_) }, $client);
 %$env = (%$env, TMPDIR => $tmpdir, PI_CONFIG => $pi_config);