> We generate links to a separate full page where quoted-text is inline.
> This is
>
-> Currently 5 lines
+> Currently 12 lines
+> See MAX_INLINE_QUOTED
+> See MAX_INLINE_QUOTED
+> See MAX_INLINE_QUOTED
+> See MAX_INLINE_QUOTED
+> See MAX_INLINE_QUOTED
+> See MAX_INLINE_QUOTED
+> See MAX_INLINE_QUOTED
> See MAX_INLINE_QUOTED
hello world
my $html = PublicInbox::View->msg_html($s);
# ghetto tests
- like($html, qr!<a href="\.\./m/hello%40!s, "MID link present");
+ like($html, qr!<a\nhref="\.\./m/hello%40!s, "MID link present");
like($html, qr/hello world\b/, "body present");
like($html, qr/> keep this inline/, "short quoted text is inline");
- like($html, qr/<a name=[^>]+>> Long and wordy/,
+ like($html, qr/<a\nname=[^>]+>> Long and wordy/,
"long quoted text is anchored");
# short page
my $pfx = "http://example.com/test/f";
my $short = PublicInbox::View->msg_html($s, $pfx);
- like($short, qr!<a href="hello%40!s, "MID link present");
+ like($short, qr!<a\nhref="hello%40!s, "MID link present");
like($short, qr/\n> keep this inline/,
"short quoted text is inline");
- like($short, qr/<a href="\Q$pfx\E#[^>]+>Long and wordy/,
+ like($short, qr/<a\nhref="\Q$pfx\E#[^>]+>Long and wordy/,
"long quoted text is made into a link");
ok(length($short) < length($html), "short page is shorter");
}
"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();