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/.

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