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(-)
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'); }