No ext_urls

[public-inbox.git] / t / content_hash.t

diff --git a/t/content_hash.t b/t/content_hash.t
index 3f02b1b34a9a87dba7e794747fe78196a7b7332a..060665f629eedef9c0e45b568adb577d379157a2 100644 (file)
--- a/t/content_hash.t
+++ b/t/content_hash.t
@@ -1,7 +1,8 @@
+#!perl -w
 # Copyright (C) 2018-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 v5.10.1;
 use Test::More;
 use PublicInbox::ContentHash qw(content_hash);
 use PublicInbox::Eml;
@@ -19,6 +20,17 @@ EOF
 my $orig = content_hash($mime);
 my $reload = content_hash(PublicInbox::Eml->new($mime->as_string));
 is($orig, $reload, 'content_hash matches after serialization');
+{
+       my $s1 = PublicInbox::Eml->new($mime->as_string);
+       $s1->header_set('Sender', 's@example.com');
+       is(content_hash($s1), $orig, "Sender ignored when 'From' present");
+       my $s2 = PublicInbox::Eml->new($s1->as_string);
+       $s1->header_set('Sender', 'sender@example.com');
+       is(content_hash($s2), $orig, "Sender really ignored 'From'");
+       $_->header_set('From') for ($s1, $s2);
+       isnt(content_hash($s1), content_hash($s2),
+               'sender accounted when From missing');
+}
 
 foreach my $h (qw(From To Cc)) {
        my $n = q("Quoted N'Ame" <foo@EXAMPLE.com>);