diff options
Diffstat (limited to 't/lei-index.t')
-rw-r--r-- | t/lei-index.t | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/t/lei-index.t b/t/lei-index.t index aab8f7e6..2b28f1be 100644 --- a/t/lei-index.t +++ b/t/lei-index.t @@ -1,5 +1,5 @@ #!perl -w -# Copyright (C) 2021 all contributors <meta@public-inbox.org> +# Copyright (C) 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; use PublicInbox::TestCommon; use File::Spec; @@ -48,9 +48,10 @@ symlink(File::Spec->rel2abs('t/mda-mime.eml'), "$tmpdir/md1/cur/x:2,S") or test_lei({ tmpdir => $tmpdir }, sub { my $store_path = "$ENV{HOME}/.local/share/lei/store/"; - lei_ok('index', "$tmpdir/md"); + lei_ok qw(index +L:md), "$tmpdir/md"; lei_ok(qw(q mid:qp@example.com)); my $res_a = json_utf8->decode($lei_out); + is_deeply $res_a->[0]->{L}, [ 'md' ], 'label set on index'; my $blob = $res_a->[0]->{'blob'}; like($blob, qr/\A[0-9a-f]{40,}\z/, 'got blob from qp@example'); lei_ok(qw(-C / blob), $blob); @@ -85,6 +86,10 @@ test_lei({ tmpdir => $tmpdir }, sub { lei_ok qw(q m:multipart-html-sucks@11); is_deeply(json_utf8->decode($lei_out)->[0]->{'kw'}, ['seen'], 'keyword set'); + lei_ok 'reindex'; + lei_ok qw(q m:multipart-html-sucks@11); + is_deeply(json_utf8->decode($lei_out)->[0]->{'kw'}, + ['seen'], 'keyword still set after reindex'); $srv->{nntpd} and lei_ok('index', "nntp://$srv->{nntp_host_port}/t.v2"); @@ -104,6 +109,12 @@ test_lei({ tmpdir => $tmpdir }, sub { my $t = xqx(['git', "--git-dir=$store_path/ALL.git", qw(cat-file -t), $res_b->{blob}]); is($t, "blob\n", 'got blob'); + + lei_ok('reindex'); + lei_ok qw(q m:multipart-html-sucks@11); + $res_a = json_utf8->decode($lei_out)->[0]; + is_deeply($res_a->{'kw'}, ['seen'], + 'keywords still set after reindex'); }); done_testing; |