diff options
Diffstat (limited to 't/mid.t')
-rw-r--r-- | t/mid.t | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -1,7 +1,8 @@ -# 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 Test::More; +use PublicInbox::Eml; use PublicInbox::MID qw(mid_escape mids references mids_for_index id_compress); is(mid_escape('foo!@(bar)'), 'foo!@(bar)'); @@ -15,10 +16,8 @@ like(id_compress('foo%bar@wtf'), qr/\A[a-f0-9]{40}\z/, is(id_compress('foobar-wtf'), 'foobar-wtf', 'regular ID not compressed'); { - use Email::MIME; - my $mime = Email::MIME->create; + my $mime = PublicInbox::Eml->new("Message-ID: <mid-1\@a>\n\n"); $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>'); is_deeply(['mid-1@a', 'mid-2@b'], mids($mime->header_obj), '2 mids'); |