hlmod: hoist out do_hl_lang sub

[public-inbox.git] / t / hl_mod.t

diff --git a/t/hl_mod.t b/t/hl_mod.t
index c402f1f784f40b3963b53407d706e9bf4d7d93df..238f8ec55b5c23a18ae7a82e9c008fe22ec7f06a 100644 (file)
--- 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')) {