# Copyright (C) 2017 all contributors
# This library is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
# Artistic or GPL-1+
use strict;
use warnings;
use Test::More;
use_ok 'PublicInbox::MIME';
my $msg = PublicInbox::MIME->new(
'From: Richard Hansen
To: git@vger.kernel.org
Cc: Richard Hansen
Subject: [PATCH 0/2] minor diff orderfile documentation improvements
Date: Mon, 9 Jan 2017 19:40:29 -0500
Message-Id: <20170110004031.57985-1-hansenr@google.com>
X-Mailer: git-send-email 2.11.0.390.gc69c2f50cf-goog
Content-Type: multipart/signed; protocol="application/pkcs7-signature"; micalg=sha-256;
boundary="94eb2c0bc864b76ba30545b2bca9"
--94eb2c0bc864b76ba30545b2bca9
Richard Hansen (2):
diff: document behavior of relative diff.orderFile
diff: document the pattern format for diff.orderFile
Documentation/diff-config.txt | 5 ++++-
Documentation/diff-options.txt | 3 ++-
2 files changed, 6 insertions(+), 2 deletions(-)
--94eb2c0bc864b76ba30545b2bca9
Content-Type: application/pkcs7-signature; name="smime.p7s"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="smime.p7s"
Content-Description: (truncated) S/MIME Cryptographic Signature
dkTlB69771K2eXK4LcHSH/2LqX+VYa3K44vrx1ruzjXdNWzIpKBy0weFNiwnJCGofvCysM2RCSI1
--94eb2c0bc864b76ba30545b2bca9--
');
my @parts = $msg->parts;
my $exp = 'Richard Hansen (2):
diff: document behavior of relative diff.orderFile
diff: document the pattern format for diff.orderFile
Documentation/diff-config.txt | 5 ++++-
Documentation/diff-options.txt | 3 ++-
2 files changed, 6 insertions(+), 2 deletions(-)
';
ok($msg->isa('Email::MIME'), 'compatible with Email::MIME');
is($parts[0]->body, $exp, 'body matches expected');
done_testing();