X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fcontent_hash.t;h=060665f629eedef9c0e45b568adb577d379157a2;hb=13a2fcc724576a78d0955f64dc0f4494545153c3;hp=646aab07c9a7ae8bbe1a74d1ead920fa5eb5b24b;hpb=098fecd1fe516a00fbfd49622b82be382ebcdab6;p=public-inbox.git
diff --git a/t/content_hash.t b/t/content_hash.t
index 646aab07..060665f6 100644
--- a/t/content_hash.t
+++ b/t/content_hash.t
@@ -1,7 +1,8 @@
-# Copyright (C) 2018-2020 all contributors
+#!perl -w
+# Copyright (C) 2018-2021 all contributors
# License: AGPL-3.0+
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" );