From: Richard Levitte <levitte@openssl.org>
Date: Tue, 6 Apr 2021 13:30:38 +0000 (+0200)
Subject: test/recipes/02-test_errstr.t: Do not test negative system error codes
X-Git-Tag: openssl-3.0.0-alpha14~34
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=41385f2708d08155d56ce08dce494152e225069e;p=thirdparty%2Fopenssl.git

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)
---

diff --git a/test/recipes/02-test_errstr.t b/test/recipes/02-test_errstr.t
index 6bc07f6d652..3bbf530c282 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));
     }