ezcurl/test/basic_test.ml
2023-02-28 09:45:07 -05:00

6 lines
290 B
OCaml

let () =
match Ezcurl.get ~url:"https://archive.softwareheritage.org/api/1/content/sha1_git:7bdf38d4468c114206c9b6ebd9cf1176e085d346/" () with
| Error (code, msg) ->
Format.eprintf "curl error: code `%s` (%s)@." (Curl.strerror code) msg
| Ok _response ->
Format.printf "OK@."