26 lines
522 B
OCaml
26 lines
522 B
OCaml
open OUnit2
|
|
|
|
|
|
let test_get_title test_ctxt =
|
|
let body = "<!DOCTYPE html>
|
|
<html lang=\"en\">
|
|
<head>
|
|
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\" />
|
|
<title>Fabien</title>
|
|
</head>
|
|
<body>
|
|
<h1>Header</h1>
|
|
</body>
|
|
</html>" 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
|