diff options
author | Eric Wong <e@80x24.org> | 2014-08-04 20:24:14 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-08-04 20:24:14 +0000 |
commit | 262ec71aba2eb8cf80cc85f387a0fd7edac94fe1 (patch) | |
tree | 257000bc3fb255754ddd4d82612b71a730924701 | |
parent | c9ea7a39daff28e0c75df8b5853fbd4a9bda6bba (diff) | |
download | public-inbox-262ec71aba2eb8cf80cc85f387a0fd7edac94fe1.tar.gz |
We need to ensure the HTML output is not mangled, either.
-rw-r--r-- | t/view.t | 25 |
1 files changed, 25 insertions, 0 deletions
@@ -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' => '<qp@example.com>', + ], + 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(); |