hlmod: support "```$LANG" blocks in text

This is compatible with Markdown; but we still keep the WYSIWYG
nature of plain-text with this.  This is only intended for use
with our documentation.  Enabling any type of Markdown support
for emails can lead to incompatibilities or interopability
problems with alternative implementations.

1 files changed, 20 insertions, 0 deletions

diff --git a/t/hl_mod.t b/t/hl_mod.t
index f2eb5f91..84a4b576 100644
--- a/t/hl_mod.t
+++ b/t/hl_mod.t
@@ -40,4 +40,24 @@ my $orig = $str;
         }
 }
 
+if ('experimental, only for help text') {
+        my $tmp = <<'EOF';
+:>
+```perl
+my $foo = 1 & 2;
+```
+:<
+EOF
+        $hls->do_hl_text(\$tmp);
+        my @hl = split(/^/m, $tmp);
+        is($hl[0], ":&gt;\n", 'first line escaped');
+        is($hl[1], "```perl\n", '2nd line preserved');
+        like($hl[2], qr/<span\b/, 'code highlighted');
+        like($hl[2], qr/&amp;/, 'ampersand escaped');
+        is($hl[3], "```\n", '4th line preserved');
+        is($hl[4], ":&lt;\n", '5th line escaped');
+        is(scalar(@hl), 5, 'no extra line');
+
+}
+
 done_testing;