mirror of
https://github.com/c-cube/ezcurl.git
synced 2025-12-05 19:00:34 -05:00
add a basic test
This commit is contained in:
parent
2665eda083
commit
bb69dade38
2 changed files with 9 additions and 0 deletions
6
test/basic_test.ml
Normal file
6
test/basic_test.ml
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
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@."
|
||||||
3
test/dune
Normal file
3
test/dune
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
(test
|
||||||
|
(name basic_test)
|
||||||
|
(libraries ezcurl))
|
||||||
Loading…
Add table
Reference in a new issue