update copyrights for 2021

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

diff --git a/t/lei.t b/t/lei.t
index 30f9d2b6ff505e920cce291b7be39a6325892e35..690878ce7262ae9131adb668718ef415fec5c47e 100644 (file)
--- a/t/lei.t
+++ b/t/lei.t
@@ -1,5 +1,5 @@
 #!perl -w
-# Copyright (C) 2020 all contributors <meta@public-inbox.org>
+# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
 use v5.10.1;
@@ -7,17 +7,18 @@ use Test::More;
 use PublicInbox::TestCommon;
 use PublicInbox::Config;
 use File::Path qw(rmtree);
+require_git 2.6;
 require_mods(qw(json DBD::SQLite Search::Xapian));
 my $LEI = 'lei';
 my $opt = { 1 => \(my $out = ''), 2 => \(my $err = '') };
 my $lei = sub {
-       my ($cmd, $env, $opt) = @_;
+       my ($cmd, $env, $xopt) = @_;
        $out = $err = '';
        if (!ref($cmd)) {
-               ($env, $opt) = grep { (!defined) || ref } @_;
-               $cmd = [ grep { defined } @_ ];
+               ($env, $xopt) = grep { (!defined) || ref } @_;
+               $cmd = [ grep { defined && !ref } @_ ];
        }
-       run_script([$LEI, @$cmd], $env, $opt);
+       run_script([$LEI, @$cmd], $env, $xopt // $opt);
 };
 
 my ($home, $for_destroy) = tmpdir();
@@ -29,6 +30,8 @@ local $ENV{FOO} = 'BAR';
 mkdir "$home/xdg_run", 0700 or BAIL_OUT "mkdir: $!";
 my $home_trash = [ "$home/.local", "$home/.config" ];
 my $cleanup = sub { rmtree([@$home_trash, @_]) };
+my $config_file = "$home/.config/lei/config";
+my $store_dir = "$home/.local/share/lei";
 
 my $test_help = sub {
        ok(!$lei->([], undef, $opt), 'no args fails');
@@ -118,10 +121,71 @@ my $test_config = sub {
        ok(!-f "$home/config/f", 'no file created');
 };
 
+my $setup_publicinboxes = sub {
+       state $done = '';
+       return if $done eq $home;
+       use PublicInbox::InboxWritable;
+       for my $V (1, 2) {
+               run_script([qw(-init -Lmedium), "-V$V", "t$V",
+                               '--newsgroup', "t.$V",
+                               "$home/t$V", "http://example.com/t$V",
+                               "t$V\@example.com" ]) or BAIL_OUT "init v$V";
+       }
+       my $cfg = PublicInbox::Config->new;
+       my $seen = 0;
+       $cfg->each_inbox(sub {
+               my ($ibx) = @_;
+               my $im = PublicInbox::InboxWritable->new($ibx)->importer(0);
+               my $V = $ibx->version;
+               my @eml = glob('t/*.eml');
+               push(@eml, 't/data/0001.patch') if $V == 2;
+               for (@eml) {
+                       next if $_ eq 't/psgi_v2-old.eml'; # dup mid
+                       $im->add(eml_load($_)) or BAIL_OUT "v$V add $_";
+                       $seen++;
+               }
+               $im->done;
+               if ($V == 1) {
+                       run_script(['-index', $ibx->{inboxdir}]) or
+                               BAIL_OUT 'index v1';
+               }
+       });
+       $done = $home;
+       $seen || BAIL_OUT 'no imports';
+};
+
+my $test_external = sub {
+       $setup_publicinboxes->();
+       $cleanup->();
+       $lei->('ls-external');
+       is($out.$err, '', 'ls-external no output, yet');
+       ok(!-e $config_file && !-e $store_dir,
+               'nothing created by ls-external');
+
+       my $cfg = PublicInbox::Config->new;
+       $cfg->each_inbox(sub {
+               my ($ibx) = @_;
+               ok($lei->(qw(add-external -q), $ibx->{inboxdir}),
+                       'added external');
+               is($out.$err, '', 'no output');
+       });
+       ok(-s $config_file && -e $store_dir,
+               'add-external created config + store');
+       my $lcfg = PublicInbox::Config->new($config_file);
+       $cfg->each_inbox(sub {
+               my ($ibx) = @_;
+               is($lcfg->{"external.$ibx->{inboxdir}.boost"}, 0,
+                       "configured boost on $ibx->{name}");
+       });
+       $lei->('ls-external');
+       like($out, qr/boost=0\n/s, 'ls-external has output');
+};
+
 my $test_lei_common = sub {
        $test_help->();
        $test_config->();
        $test_init->();
+       $test_external->();
 };
 
 my $test_lei_oneshot = $ENV{TEST_LEI_ONESHOT};