From 247282c2d38426eae6a471b2aeebbf5d449dbc3e Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Wed, 15 Nov 2023 01:04:57 +0000 Subject: [PATCH] t/lei-import: account for more verbose error 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. --- t/lei-import.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/lei-import.t b/t/lei-import.t index bd5626170..b4446b566 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'); } -- 2.47.2