lei: All Local Externals: bare git dir for alternates

[public-inbox.git] / t / lei-externals.t

diff --git a/t/lei-externals.t b/t/lei-externals.t
index 1695ff0be970acb232b7710cef5798ae0faa3372..2045691fa5c155a25e9891efdd7a5c2280c0b19c 100644 (file)
--- a/t/lei-externals.t
+++ b/t/lei-externals.t
@@ -127,8 +127,10 @@ test_lei(sub {
        lei_ok qw(_complete lei forget-external), \'complete for externals';
        my %comp = map { $_ => 1 } split(/\s+/, $lei_out);
        ok($comp{'https://example.com/ibx/'}, 'forget external completion');
+       my @dirs;
        $cfg->each_inbox(sub {
                my ($ibx) = @_;
+               push @dirs, $ibx->{inboxdir};
                ok($comp{$ibx->{inboxdir}}, "local $ibx->{name} completion");
        });
        for my $u (qw(h http https https: https:/ https:// https://e
@@ -157,7 +159,8 @@ test_lei(sub {
        lei_ok('ls-external');
        unlike($lei_out, qr!https://example\.com/ibx/!s,
                'removed canonical URL');
-SKIP: {
+
+       # do some queries
        ok(!lei(qw(q s:prefix -o maildir:/dev/null)), 'bad maildir');
        like($lei_err, qr!/dev/null exists and is not a directory!,
                'error shown');
@@ -233,7 +236,8 @@ SKIP: {
                is(scalar(@s), 2, "2 results in mbox$sfx");
 
                lei_ok('q', '-a', '-o', "mboxcl2:$f", 's:nonexistent');
-               is(grep(!/^#/, $lei_err), 0, "no errors on no results ($sfx)");
+               is(grep(!/^#/, $lei_err), 0, "no errors on no results ($sfx)")
+                       or diag $lei_err;
 
                my @s2 = grep(/^Subject:/, $cat->());
                is_deeply(\@s2, \@s,
@@ -249,6 +253,15 @@ SKIP: {
        is($? >> 8, 1, 'proper exit code');
        like($lei_err, qr/no local or remote.+? to search/, 'no inbox');
 
+       for my $no (['--no-local'], ['--no-external'],
+                       [qw(--no-local --no-external)]) {
+               lei_ok(qw(q mid:testmessage@example.com), @$no,
+                       '-I', $dirs[0], \"-I and @$no combine");
+               $res = json_utf8->decode($lei_out);
+               is($res->[0]->{'m'}, 'testmessage@example.com',
+                       "-I \$DIR got results regardless of @$no");
+       }
+
        {
                opendir my $dh, '.' or BAIL_OUT "opendir(.) $!";
                my $od = PublicInbox::OnDestroy->new($$, sub {
@@ -278,6 +291,5 @@ SKIP: {
                $url = $e{$k} if $url eq '1';
                $test_external_remote->($url, $k);
        }
-       }; # /SKIP
 }); # test_lei
 done_testing;