gazagnaire.org
forked from
anil.recoil.org/ocaml-requests
A batteries included HTTP/1.1 client in OCaml
1(*---------------------------------------------------------------------------
2 Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>. All rights reserved.
3 SPDX-License-Identifier: ISC
4 ---------------------------------------------------------------------------*)
5
6(** Basic tests for the Requests library module *)
7
8let test_log_source () =
9 let src = Requests.src in
10 Alcotest.(check string) "log source name" "requests" (Logs.Src.name src)
11
12let test_tls_version_values () =
13 (* Ensure TLS version variants exist and are distinct *)
14 let v12 : Requests.tls_version = TLS_1_2 in
15 let v13 : Requests.tls_version = TLS_1_3 in
16 Alcotest.(check bool) "TLS versions are distinct" true (v12 <> v13)
17
18let test_module_reexports () =
19 (* Verify key module re-exports are accessible *)
20 let _method = Requests.Method.to_string `GET in
21 let _headers = Requests.Headers.empty in
22 let _status = Requests.Status.to_int `OK in
23 let _mime = Requests.Mime.json in
24 ()
25
26let suite =
27 ( "requests",
28 [
29 Alcotest.test_case "log source name" `Quick test_log_source;
30 Alcotest.test_case "TLS version values" `Quick test_tls_version_values;
31 Alcotest.test_case "module re-exports" `Quick test_module_reexports;
32 ] )