about summary refs log tree commit homepage
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/hl_mod.t2
1 files changed, 2 insertions, 0 deletions
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')) {