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
let test_remove_spaces test_ctxt =
let str = "
foo bar baz
" in
let cleaned_str = Evaluate.remove_spaces str in
assert_equal "foo bar baz" cleaned_str
(* Name the test cases and group them together *)
let suite =
"suite">:::
["test get_title">:: test_get_title;
"test remove_spaces">:: test_remove_spaces]
let () =
run_test_tt_main suite