Add unit test for HTML title.

2014-03-03 23:33:47 +01:00 · 2014-03-03 23:33:47 +01:00 · 5b790d3f09
parent 1ab32d004c
commit 5b790d3f09
2 changed files with 26 additions and 0 deletions
--- a/ocaml/_tags
+++ b/ocaml/_tags
@ -1 +1,2 @@
 true: package(ssl,netclient,netstring,equeue-ssl)
+<test.*>: package(oUnit)
--- a/ocaml/test.ml
+++ b/ocaml/test.ml
@ -0,0 +1,25 @@
+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