From: Eric Wong (Contractor, The Linux Foundation) <e@80x24.org>
Date: Mon, 12 Feb 2018 23:09:07 +0000 (+0000)
Subject: content_id: add test case
X-Git-Tag: v1.1.0-pre1~247
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=ccafffd2888ae58be036b35e2323c2126fa633c9;p=public-inbox.git

content_id: add test case
---

diff --git a/MANIFEST b/MANIFEST
index 85e85031..1df27f26 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -128,6 +128,7 @@ t/check-www-inbox.perl
 t/common.perl
 t/config.t
 t/config_limiter.t
+t/content_id.t
 t/emergency.t
 t/fail-bin/spamc
 t/feed.t
diff --git a/t/content_id.t b/t/content_id.t
new file mode 100644
index 00000000..c0ae6ecd
--- /dev/null
+++ b/t/content_id.t
@@ -0,0 +1,24 @@
+# Copyright (C) 2018 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 $res = content_id($mime);
+like($res, qr/\ASHA-256:[a-f0-9]{64}\z/, 'cid in format expected');
+
+done_testing();