open OUnit2
let test_get_title test_ctxt =
let body = "
Fabien
Header
" in
let title = SimpleHttp.get_http_title body in
assert_equal (Some "Fabien") title
(* Name the test cases and group them together *)
let suite =
"suite">:::
["test get_title">:: test_get_title]
let () =
run_test_tt_main suite