]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/altid.t
lei add-external: completion for existing URL basenames
[public-inbox.git] / t / altid.t
index c7a3601a6b196f03f5111c11f89bb0b8e57f1528..0e9da07eb4eab11374019cf09d379a11a21c1759 100644 (file)
--- a/t/altid.t
+++ b/t/altid.t
@@ -1,10 +1,10 @@
-# Copyright (C) 2016-2020 all contributors <meta@public-inbox.org>
+# Copyright (C) 2016-2021 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
 use warnings;
 use Test::More;
 use PublicInbox::TestCommon;
-use PublicInbox::MIME;
+use PublicInbox::Eml;
 require_mods(qw(DBD::SQLite Search::Xapian));
 use_ok 'PublicInbox::Msgmap';
 use_ok 'PublicInbox::SearchIdx';
@@ -27,7 +27,7 @@ my $ibx;
        my $git = PublicInbox::Git->new($git_dir);
        my $im = PublicInbox::Import->new($git, 'testbox', 'test@example');
        $im->init_bare;
-       $im->add(PublicInbox::MIME->new(<<'EOF'));
+       $im->add(PublicInbox::Eml->new(<<'EOF'));
 From: a@example.com
 To: b@example.com
 Subject: boo!
@@ -45,12 +45,13 @@ EOF
 }
 
 {
-       my $ro = PublicInbox::Search->new($ibx);
-       my $msgs = $ro->query("gmane:1234");
-       is_deeply([map { $_->mid } @$msgs], ['a@example.com'], 'got one match');
+       my $mset = $ibx->search->mset("gmane:1234");
+       my $msgs = $ibx->search->mset_to_smsg($ibx, $mset);
+       $msgs = [ map { $_->{mid} } @$msgs ];
+       is_deeply($msgs, ['a@example.com'], 'got one match');
 
-       $msgs = $ro->query("gmane:666");
-       is_deeply([], $msgs, 'body did NOT match');
+       $mset = $ibx->search->mset('gmane:666');
+       is($mset->size, 0, 'body did NOT match');
 };
 
 {