From 58db2bbcbc9836fe36c91eff761e31edfd53f866 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 2 Feb 2019 06:02:41 +0000 Subject: hlmod: hoist out do_hl_lang sub We'll want to use to support highlighting syntax used by Markdown and possibly other markup languages (while retaining the raw plain-text layout and formatting). --- t/hl_mod.t | 2 ++ 1 file changed, 2 insertions(+) (limited to 't') diff --git a/t/hl_mod.t b/t/hl_mod.t index c402f1f7..238f8ec5 100644 --- a/t/hl_mod.t +++ b/t/hl_mod.t @@ -22,6 +22,8 @@ my $orig = $str; ok(utf8::valid($$ref), 'resulting string is utf8::valid'); like($$ref, qr/I can see you!/, 'we can see ourselves in output'); like($$ref, qr/&&/, 'escaped'); + my $lref = $hls->do_hl_lang(\$str, 'perl'); + is($$ref, $$lref, 'do_hl_lang matches do_hl'); use PublicInbox::Spawn qw(which); if (eval { require IPC::Run } && which('w3m')) { -- cgit v1.2.3-24-ge0c7