X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Faltid.t;h=816f5f5b78007b9f5a6a68b324bad1a83157489a;hb=80b887f29b2ec71d025b4c266a1c26314758994c;hp=a3f710449b0870b1be8dd2873e856e8a513bf2d5;hpb=a09f678d8254064af7ca6dcfb3c3f84b5ae37b51;p=public-inbox.git diff --git a/t/altid.t b/t/altid.t index a3f71044..816f5f5b 100644 --- a/t/altid.t +++ b/t/altid.t @@ -1,9 +1,10 @@ -# Copyright (C) 2016-2019 all contributors +# Copyright (C) 2016-2020 all contributors # License: AGPL-3.0+ use strict; use warnings; use Test::More; use PublicInbox::TestCommon; +use PublicInbox::Eml; require_mods(qw(DBD::SQLite Search::Xapian)); use_ok 'PublicInbox::Msgmap'; use_ok 'PublicInbox::SearchIdx'; @@ -23,19 +24,17 @@ my $ibx; } { - is(system(qw(git init -q --bare), $git_dir), 0, 'git init ok'); my $git = PublicInbox::Git->new($git_dir); my $im = PublicInbox::Import->new($git, 'testbox', 'test@example'); - $im->add(Email::MIME->create( - header => [ - From => 'a@example.com', - To => 'b@example.com', - 'Content-Type' => 'text/plain', - Subject => 'boo!', - 'Message-ID' => '', - ], - body => "hello world gmane:666\n", - )); + $im->init_bare; + $im->add(PublicInbox::Eml->new(<<'EOF')); +From: a@example.com +To: b@example.com +Subject: boo! +Message-ID: + +hello world gmane:666 +EOF $im->done; } { @@ -46,12 +45,13 @@ my $ibx; } { - 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'); }; {