searchidx: fix -Lmedium for IDs and filenames

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

diff --git a/t/lei_xsearch.t b/t/lei_xsearch.t
index f745ea3e2bfba9566a73cf560fd091733b41b383..5bfbcfe66e33330a45e7db4fe1729203229bb435 100644 (file)
--- a/t/lei_xsearch.t
+++ b/t/lei_xsearch.t
@@ -6,10 +6,10 @@ use v5.10.1;
 use Test::More;
 use List::Util qw(shuffle max);
 use PublicInbox::TestCommon;
-use PublicInbox::ExtSearchIdx;
 use PublicInbox::Eml;
 use PublicInbox::InboxWritable;
 require_mods(qw(DBD::SQLite Search::Xapian));
+require PublicInbox::ExtSearchIdx;
 require_git 2.6;
 require_ok 'PublicInbox::LeiXSearch';
 my ($home, $for_destroy) = tmpdir();
@@ -78,4 +78,35 @@ is(scalar(@ibxish), scalar(@ibx) + 1, 'got locals back');
 is($lxs->search, $lxs, '->search works');
 is($lxs->over, undef, '->over fails');
 
+{
+       $lxs = PublicInbox::LeiXSearch->new;
+       my $v2ibx = PublicInbox::InboxWritable->new({
+               inboxdir => "$home/v2full",
+               name => 'v2full',
+               version => 2,
+               indexlevel => 'full',
+               -primary_address => 'v2full@example.com',
+       }, {});
+       my $im = $v2ibx->importer(0);
+       $im->add(eml_load('t/plack-qp.eml'));
+       $im->done;
+       my $v1ibx = PublicInbox::InboxWritable->new({
+               inboxdir => "$home/v1medium",
+               name => 'v1medium',
+               version => 1,
+               indexlevel => 'medium',
+               -primary_address => 'v1medium@example.com',
+       }, {});
+       $im = $v1ibx->importer(0);
+       $im->add(eml_load('t/utf8.eml'));
+       $im->done;
+       $lxs->prepare_external($v1ibx);
+       $lxs->prepare_external($v2ibx);
+       for my $loc ($lxs->locals) {
+               $lxs->attach_external($loc);
+       }
+       my $mset = $lxs->mset('m:testmessage@example.com');
+       is($mset->size, 1, 'got m: match on medium+full XSearch mix');
+}
+
 done_testing;