X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fcontent_hash.t;fp=t%2Fcontent_id.t;h=646aab07c9a7ae8bbe1a74d1ead920fa5eb5b24b;hb=098fecd1fe516a00fbfd49622b82be382ebcdab6;hp=9df81aa829379e92f2027fdc1724b526789082c4;hpb=cd8cda10c9687533949a8a358fd7b858f704da6e;p=public-inbox.git diff --git a/t/content_id.t b/t/content_hash.t similarity index 64% rename from t/content_id.t rename to t/content_hash.t index 9df81aa8..646aab07 100644 --- a/t/content_id.t +++ b/t/content_hash.t @@ -3,7 +3,7 @@ use strict; use warnings; use Test::More; -use PublicInbox::ContentId qw(content_id); +use PublicInbox::ContentHash qw(content_hash); use PublicInbox::Eml; my $mime = PublicInbox::Eml->new(<<'EOF'); @@ -16,17 +16,17 @@ Date: Fri, 02 Oct 1993 00:00:00 +0000 hello world EOF -my $orig = content_id($mime); -my $reload = content_id(PublicInbox::Eml->new($mime->as_string)); -is($orig, $reload, 'content_id matches after serialization'); +my $orig = content_hash($mime); +my $reload = content_hash(PublicInbox::Eml->new($mime->as_string)); +is($orig, $reload, 'content_hash matches after serialization'); foreach my $h (qw(From To Cc)) { my $n = q("Quoted N'Ame" ); $mime->header_set($h, "$n"); - my $q = content_id($mime); - is($mime->header($h), $n, "content_id does not mutate $h:"); + my $q = content_hash($mime); + is($mime->header($h), $n, "content_hash does not mutate $h:"); $mime->header_set($h, 'Quoted N\'Ame '); - my $nq = content_id($mime); + my $nq = content_hash($mime); is($nq, $q, "quotes ignored in $h:"); }