From 3998cdd1c94661687cee413b01b95422cf02c34a Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sun, 27 Jan 2019 11:35:29 +0000 Subject: t/hl_mod: extra check to ensure we escape HTML Otherwise, it's open season on our users :< --- t/hl_mod.t | 1 + 1 file changed, 1 insertion(+) (limited to 't') diff --git a/t/hl_mod.t b/t/hl_mod.t index b8b8eb9d..62cc6248 100644 --- a/t/hl_mod.t +++ b/t/hl_mod.t @@ -20,6 +20,7 @@ my $orig = $str; my $ref = $hls->do_hl(\$str, 'foo.perl'); is(ref($ref), 'SCALAR', 'got a scalar reference back'); like($$ref, qr/I can see you!/, 'we can see ourselves in output'); + like($$ref, qr/&&/, 'escaped'); use PublicInbox::Spawn qw(which); if (eval { require IPC::Run } && which('w3m')) { -- cgit v1.2.3-24-ge0c7