From 262ec71aba2eb8cf80cc85f387a0fd7edac94fe1 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Mon, 4 Aug 2014 20:24:14 +0000 Subject: t/view: ensure HTML shows QP text We need to ensure the HTML output is not mangled, either. --- t/view.t | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/t/view.t b/t/view.t index 10a182b3..bc6fbed9 100644 --- a/t/view.t +++ b/t/view.t @@ -110,4 +110,29 @@ EOF "parts split with filename"); } +# multipart collapsed to single quoted-printable text/plain +{ + my $parts = [ + Email::MIME->create( + attributes => { + content_type => 'text/plain', + encoding => 'quoted-printable', + }, + body => 'hi = bye', + ) + ]; + my $mime = Email::MIME->create( + header_str => [ + From => 'qp@example.com', + Subject => 'QP', + 'Message-ID' => '', + ], + parts => $parts, + ); + + my $html = PublicInbox::View->msg_html($mime); + like($mime->body_raw, qr/hi =3D bye=/, "our test used QP correctly"); + like($html, qr/\bhi = bye\b/, "HTML output decoded QP"); +} + done_testing(); -- cgit v1.2.3-24-ge0c7