mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-03-31 20:10:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

TEST: skip POSIX errcode zero in tesst/recipes/02-test_errstr.t

Browse Source 
On most systems, there is no E macro for errcode zero in <errno.h>,
which means that it seldom comes up here.  However, reports indicate
that some platforms do have an E macro for errcode zero.
With perl, errcode zero is a bit special.  Perl consistently gives
the empty string for that one, while the C strerror() may give back
something else.  The easiest way to deal with that possible mismatch
is to skip this errcode.

Fixes #12798

Reviewed-by: Paul Dale <paul.dale@oracle.com>
(Merged from https://github.com/openssl/openssl/pull/12799)
This commit is contained in:
Richard Levitte 2020-09-06 08:51:32 +02:00
parent c9352933fe
commit c88f6f0e40
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test/recipes/02-test_errstr.t
View File

@ -57,7 +57,21 @@ plan tests => scalar @Errno::EXPORT_OK
foreach my $errname (@Errno::EXPORT_OK) {
# The error names are perl constants, which are implemented as functions
# returning the numeric value of that name.
&ok(match_syserr_reason("Errno::$errname"->()))
my $errcode = "Errno::$errname"->();
SKIP: {
# On most systems, there is no E macro for errcode zero in <errno.h>,
# which means that it seldom comes up here. However, reports indicate
# that some platforms do have an E macro for errcode zero.
# With perl, errcode zero is a bit special. Perl consistently gives
# the empty string for that one, while the C strerror() may give back
# something else. The easiest way to deal with that possible mismatch
# is to skip this errcode.
skip "perl error strings and ssystem error strings for errcode 0 differ", 1
if $errcode == 0;
&ok(match_syserr_reason($errcode));
}
}
# OpenSSL library 1 is the "unknown" library