diff options
| author | Eric Wong <e@80x24.org> | 2023-11-15 01:04:57 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2023-11-15 04:25:01 +0000 |
| commit | 247282c2d38426eae6a471b2aeebbf5d449dbc3e (patch) | |
| tree | ee92546e61fd7ff57324fbef20d874ca91538c74 /t/lei-import.t | |
| parent | 0e9088e0c762f64bcc9fa0bfcfec63799f2fb118 (diff) | |
| download | public-inbox-247282c2d38426eae6a471b2aeebbf5d449dbc3e.tar.gz | |
Perl 5.16.3 on CentOS seems more verbose in one of the EIO tests. Relax the regexp so we can account for extra errors reported by Perl.
Diffstat (limited to 't/lei-import.t')
| -rw-r--r-- | t/lei-import.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lei-import.t b/t/lei-import.t index bd562617..b4446b56 100644 --- a/t/lei-import.t +++ b/t/lei-import.t @@ -172,12 +172,12 @@ SKIP: { tick; # wait for strace to attach ok(!lei(qw(import -F eml t/plack-qp.eml)), '-F eml import fails on pathname error injection'); - like($lei_err, qr!error reading t/plack-qp\.eml: Input/output error!, + like($lei_err, qr!error reading t/plack-qp\.eml: .*Input/output error!, 'EIO noted in stderr'); open $fh, '<', 't/plack-qp.eml'; ok(!lei(qw(import -F eml -), undef, { %$lei_opt, 0 => $fh }), '-F eml import fails on stdin error injection'); - like($lei_err, qr!error reading .*?: Input/output error!, + like($lei_err, qr!error reading .*?: .*Input/output error!, 'EIO noted in stderr'); } |