about summary refs log tree commit homepage
path: root/t/content_id.t
diff options
context:
space:
mode:
Diffstat (limited to 't/content_id.t')
-rw-r--r--t/content_id.t35
1 files changed, 0 insertions, 35 deletions
diff --git a/t/content_id.t b/t/content_id.t
deleted file mode 100644
index 3fe44b95..00000000
--- a/t/content_id.t
+++ /dev/null
@@ -1,35 +0,0 @@
-# Copyright (C) 2018-2020 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::ContentId qw(content_id);
-use Email::MIME;
-
-my $mime = Email::MIME->create(
-        header => [
-                From => 'a@example.com',
-                To => 'b@example.com',
-                'Content-Type' => 'text/plain',
-                Subject => 'this is a subject',
-                'Message-ID' => '<a@example.com>',
-                Date => 'Fri, 02 Oct 1993 00:00:00 +0000',
-        ],
-        body => "hello world\n",
-);
-
-my $orig = content_id($mime);
-my $reload = content_id(Email::MIME->new($mime->as_string));
-is($orig, $reload, 'content_id matches after serialization');
-
-foreach my $h (qw(From To Cc)) {
-        my $n = q("Quoted N'Ame" <foo@EXAMPLE.com>);
-        $mime->header_set($h, "$n");
-        my $q = content_id($mime);
-        is($mime->header($h), $n, "content_id does not mutate $h:");
-        $mime->header_set($h, 'Quoted N\'Ame <foo@example.com>');
-        my $nq = content_id($mime);
-        is($nq, $q, "quotes ignored in $h:");
-}
-
-done_testing();