- like($html, qr/<a\nid=[^>]+>> 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\nhref="hello%40!s, "MID link present");
- like($short, qr/\n> keep this inline/,
- "short quoted text is inline");
- 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");