diff options
author | Eric Wong <e@80x24.org> | 2021-09-13 20:53:50 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-09-13 21:11:13 +0000 |
commit | 04657044bb3695d70298624eb25394fb864fb718 (patch) | |
tree | fce610c4e7c2b3a7287d9a3cbde42bfc2ff36bfa /t/hl_mod.t | |
parent | dc489bfd4b4c659b7ebb166ab540b4e767e51aaa (diff) | |
download | public-inbox-04657044bb3695d70298624eb25394fb864fb718.tar.gz |
t/v2mirror.t and t/lei-mirror.t are now skipped when curl is missing (instead of failing in appropriate places). A bunch of which() checks are updated to use require_cmd to avoid explicitly loading Spawn.
Diffstat (limited to 't/hl_mod.t')
-rw-r--r-- | t/hl_mod.t | 9 |
1 files changed, 2 insertions, 7 deletions
@@ -1,12 +1,7 @@ #!/usr/bin/perl -w # Copyright (C) 2019-2021 all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> -use strict; -use warnings; -use Test::More; -use PublicInbox::Spawn qw(which); -use PublicInbox::TestCommon; -use IO::Handle; # ->autoflush +use strict; use v5.10.1; use PublicInbox::TestCommon; use IO::Handle; # ->autoflush use Fcntl qw(:seek); eval { require highlight } or plan skip_all => "failed to load highlight.pm for $0"; @@ -30,7 +25,7 @@ my $orig = $str; is($$ref, $$lref, 'do_hl_lang matches do_hl'); SKIP: { - my $w3m = which('w3m') or + my $w3m = require_cmd('w3m', 1) or skip('w3m(1) missing to check output', 1); my $cmd = [ $w3m, qw(-T text/html -dump -config /dev/null) ]; my $in = '<pre>' . $$ref . '</pre>'; |