From: Eric Wong <e@80x24.org>
Date: Wed, 13 Dec 2023 00:50:19 +0000 (+0000)
Subject: t/lei-import: relax EIO regexp
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=484683d041a6ab7a48e4a92dab081dc26ba77451;p=thirdparty%2Fpublic-inbox.git

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

diff --git a/t/lei-import.t b/t/lei-import.t
index b4446b566..89eb14926 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');
 }