diff options
author | Eric Wong <e@80x24.org> | 2019-10-24 00:12:40 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-10-28 10:49:14 +0000 |
commit | e67dc3e9fc73029332a632d022002d3ce80c1306 (patch) | |
tree | 7790f5cc66b0035666575418b659f37876cfedf4 /t/mid.t | |
parent | a8ae7e31ac36bcda04bf13a1b834207a89b0014c (diff) | |
download | public-inbox-e67dc3e9fc73029332a632d022002d3ce80c1306.tar.gz |
Since we replace extra Message-ID headers with X-Alt-Message-ID to placate NNTP clients, we should allow searching and indexing on X-Alt-Message-ID just like we do with Message-ID.
Diffstat (limited to 't/mid.t')
-rw-r--r-- | t/mid.t | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1,7 +1,7 @@ # Copyright (C) 2016-2019 all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> use Test::More; -use PublicInbox::MID qw(mid_escape mids references); +use PublicInbox::MID qw(mid_escape mids references mids_for_index); is(mid_escape('foo!@(bar)'), 'foo!@(bar)'); is(mid_escape('foo%!@(bar)'), 'foo%25!@(bar)'); @@ -10,6 +10,7 @@ is(mid_escape('foo%!@(bar)'), 'foo%25!@(bar)'); { use Email::MIME; my $mime = Email::MIME->create; + $mime->header_set('X-Alt-Message-ID', '<alt-id-for-nntp>'); $mime->header_set('Message-Id', '<mid-1@a>'); is_deeply(['mid-1@a'], mids($mime->header_obj), 'mids in common case'); $mime->header_set('Message-Id', '<mid-1@a>', '<mid-2@b>'); @@ -40,6 +41,10 @@ is(mid_escape('foo%!@(bar)'), 'foo%25!@(bar)'); $mime->header_set('To', 'u@example.com'); $mime->header_set('References', '<hello> <world> <n> <u@example.com>'); is_deeply(references($mime->header_obj), [qw(hello world)]); + + is_deeply([qw(helloworld alt-id-for-nntp)], + mids_for_index($mime->header_obj), + 'X-Alt-Message-ID can be indexed'); } done_testing(); |