test/util_test.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

open OUnit2
open Util

let test_find_xml_child_existent test_ctxt =
    let elem = Xml.Element ("foo", [],
                            [Xml.Element ("bar", [], []);
                             Xml.PCData "baz"])
    in assert_equal (Xml.tag (find_xml_child "bar" elem)) "bar"

let test_find_xml_child_nonexistent test_ctxt =
    let elem = Xml.Element ("foo", [], [Xml.Element ("quux", [], [])]) in
    assert_raises Not_found (fun () -> find_xml_child "bar" elem)

let test_string_of_path test_ctxt =
    let path = ["foo"; "bar"; "baz"] in
    assert_equal (string_of_path path) "[foo bar baz]"

let suite =
    "Util tests" >::: [
        "test_find_xml_child_existent" >:: test_find_xml_child_existent;
        "test_find_xml_child_nonexistent" >:: test_find_xml_child_nonexistent;
        "test_string_of_path" >:: test_string_of_path;
    ]

let () =
  run_test_tt_main suite