diff options
-rw-r--r-- | t/lei-import.t | 5 |
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'); } |