1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
open Alcotest
open Ssl
let test_init () = init () |> ignore
let test_error_queue () =
let context = Ssl.create_context TLSv1_3 Client_context in
try use_certificate context "expired.pem" "" with
| _ ->
();
let err = Error.peek_error () in
check int "Error code" 32 err.library_number;
check string "Library string" "BIO routines" (Option.get err.lib);
check string "Reason string" "system lib" (Option.get err.reason);
let err = Error.peek_last_error () in
check int "Error code" 20 err.library_number;
check string "Library string" "SSL routines" (Option.get err.lib);
check string "Reason string" "system lib" (Option.get err.reason);
let err = Error.get_error () in
check int "Error code" 32 err.library_number;
check string "Library string" "BIO routines" (Option.get err.lib);
check string "Reason string" "system lib" (Option.get err.reason);
let err = Error.get_error () in
check int "Error code" 20 err.library_number;
check string "Library string" "SSL routines" (Option.get err.lib);
check string "Reason string" "system lib" (Option.get err.reason)
let () =
Alcotest.run
"Ssl communication"
[ ( "Communication"
, [ test_case "Test init" `Quick test_init
; test_case "Test error queue" `Quick test_error_queue
] )
]
|
