diff options
| author | Richard Levitte <levitte@openssl.org> | 2021-04-06 15:30:38 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2021-04-07 22:09:58 +0200 |
| commit | 41385f2708d08155d56ce08dce494152e225069e (patch) | |
| tree | 8ef96dc14f1a9ccd95def9708dd45edff5313383 | |
| parent | 014498fff9ee2e71dfdd82978b8896b05c9c8cb0 (diff) | |
| download | openssl-new-41385f2708d08155d56ce08dce494152e225069e.tar.gz | |
test/recipes/02-test_errstr.t: Do not test negative system error codes
It's been deemed unlikely that these will end up in OpenSSL error
records, so we simply don't test them if they happen to be among the
error codes that perl has support for.
Fixes #14763
Reviewed-by: Tomas Mraz <tomas@openssl.org>
Reviewed-by: Paul Dale <pauli@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/14779)
| -rw-r--r-- | test/recipes/02-test_errstr.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/recipes/02-test_errstr.t b/test/recipes/02-test_errstr.t index 6bc07f6d65..3bbf530c28 100644 --- a/test/recipes/02-test_errstr.t +++ b/test/recipes/02-test_errstr.t @@ -69,6 +69,10 @@ foreach my $errname (@Errno::EXPORT_OK) { # is to skip this errcode. skip "perl error strings and ssystem error strings for errcode 0 differ", 1 if $errcode == 0; + # On some systems (for example Hurd), there are negative error codes. + # These are currently unsupported in OpenSSL error reports. + skip "negative error codes are not supported in OpenSSL", 1 + if $errcode < 0; &ok(match_syserr_reason($errcode)); } |