| 0 | |
From: Kurt Roeckx <kurt@roeckx.be>
|
| 1 | |
Subject: Compatibility with OpenSSL 1.1.1i
|
| 2 | |
|
| 3 | |
swi-prolog is failing to build using OpenSSL 1.1.1i. This patch fixes
|
| 4 | |
it.
|
| 5 | |
|
| 6 | |
--- a/packages/ssl/test_ssl.pl
|
| 7 | |
+++ b/packages/ssl/test_ssl.pl
|
| 8 | |
@@ -629,11 +629,14 @@ test('Certificate which is not yet valid
|
| 9 | |
test('Certificate is not issued by trusted CA'):-
|
| 10 | |
do_verification_test(14, try_ssl_client('www.example.com', test_verify_hook), VerificationResults, Status),
|
| 11 | |
( VerificationResults:Status == [unknown_issuer]:true ->
|
| 12 | |
- % OpenSSL 1.0.2 and above
|
| 13 | |
+ % OpenSSL 1.0.2 - 1.1.1h
|
| 14 | |
true
|
| 15 | |
; VerificationResults:Status == [unknown_issuer, not_trusted]:true ->
|
| 16 | |
% OpenSSL 1.0.1 and below
|
| 17 | |
true
|
| 18 | |
+ ; VerificationResults:Status == [unknown_issuer, verified]:true ->
|
| 19 | |
+ % OpenSSL 1.1.1i and above
|
| 20 | |
+ true
|
| 21 | |
).
|
| 22 | |
|
| 23 | |
test('Certificate is issued by trusted CA but has been altered so signature is wrong', VerificationResults:Status == [bad_signature, verified]:true):-
|
| 24 | |
@@ -772,5 +775,3 @@ is_hex_string(S) :-
|
| 25 | |
is_hex(C) :- between(0'0, 0'9, C), !.
|
| 26 | |
is_hex(C) :- between(0'A, 0'F, C), !.
|
| 27 | |
is_hex(C) :- between(0'a, 0'f, C), !.
|
| 28 | |
-
|
| 29 | |
-
|