fabs/cheesebot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add unit test for url parser.

Browse source
This commit is contained in:
Fabien Freling 2015-07-31 21:31:22 +02:00
parent 383920e6ee
commit fcf9fa63b2
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ocaml/test.ml
View file

@ -38,6 +38,21 @@ let test_https test_ctx =
let title = SimpleHttp.get_http_title (SimpleHttp.get_body url) in
assert_equal (Some "Wikipedia, the free encyclopedia") title
let test_is_url test_ctx =
let urls = [
("http://foo.bar", true);
("https://foo.bar", true);
("www.foo.bar", true);
("foo.bar", true);
("http://www.foo.bar", true);
("foo-bar", false);
("http://www.foo.bar/baz/quuz", true)
] in
let check (url, b) = assert_equal (Evaluate.is_url url) b in
List.iter check urls
(* Name the test cases and group them together *)
let suite =
"suite">:::