body => $body,
)->as_string;
my $mime = Email::MIME->new($s);
- my $html = PublicInbox::View->msg_html($mime);
+ my $html = PublicInbox::View::msg_html(undef, $mime);
# ghetto tests
like($html, qr!<a\nhref="\.\./m/hello%40!s, "MID link present");
# short page
my $pfx = "http://example.com/test/f";
$mime = Email::MIME->new($s);
- my $short = PublicInbox::View->msg_html($mime, $pfx);
+ my $short = PublicInbox::View::msg_html(undef, $mime, $pfx);
like($short, qr!<a\nhref="hello%40!s, "MID link present");
like($short, qr/\n> keep this inline/,
"short quoted text is inline");
parts => $parts,
);
- my $html = PublicInbox::View->msg_html($mime);
+ my $html = PublicInbox::View::msg_html(undef, $mime);
like($html, qr/hi\n-+ part #2 -+\nbye\n/, "multipart split");
}
parts => $parts,
);
- my $html = PublicInbox::View->msg_html($mime);
+ my $html = PublicInbox::View::msg_html(undef, $mime);
like($html, qr!see attached patch\n-+ foo\.patch -+\n--- a/file\n!,
"parts split with filename");
}
);
my $orig = $mime->body_raw;
- my $html = PublicInbox::View->msg_html($mime);
+ my $html = PublicInbox::View::msg_html(undef, $mime);
like($orig, qr/hi =3D bye=/, "our test used QP correctly");
like($html, qr/\bhi = bye\b/, "HTML output decoded QP");
}