From 484683d041a6ab7a48e4a92dab081dc26ba77451 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Wed, 13 Dec 2023 00:50:19 +0000 Subject: t/lei-import: relax EIO regexp musl uses "I/O error" while glibc uses "Input/output error" I wish something like strerrorname_np(3) were portable and built into Perl so we could just match on /EIO/. --- t/lei-import.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 't') diff --git a/t/lei-import.t b/t/lei-import.t index b4446b56..89eb1492 100644 --- a/t/lei-import.t +++ b/t/lei-import.t @@ -172,12 +172,13 @@ 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!, + my $IO = '[Ii](?:nput)?/[Oo](?:utput)?'; + like($lei_err, qr!error reading t/plack-qp\.eml: .*?$IO 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 .*?: .*?$IO error!, 'EIO noted in stderr'); } -- cgit v1.2.3-24-ge0c7