diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-02-13 23:46:48 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-02-13 23:46:48 +0600 |
| commit | f8e11113035178cd9de6fb2ea3cf949d75f489c5 (patch) | |
| tree | 2086fbef7aabc7038f08bb87b39d3cbfaf4db8bc | |
| parent | 1f68a315252e678294a4c25b70ed6c3b213a6c2b (diff) | |
| download | vyconf-f8e11113035178cd9de6fb2ea3cf949d75f489c5.tar.gz vyconf-f8e11113035178cd9de6fb2ea3cf949d75f489c5.zip | |
Add the first actual unit test.
| -rw-r--r-- | test/vyconf_tree_test.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/test/vyconf_tree_test.ml b/test/vyconf_tree_test.ml index 77a725c..0444177 100644 --- a/test/vyconf_tree_test.ml +++ b/test/vyconf_tree_test.ml @@ -1,10 +1,17 @@ open OUnit2 +open Vytree let test1 test_ctxt = assert_equal 0 0 +let test_make_node test_ctxt = + let node = make "root" () in + assert_equal (name_of_node node) "root"; + assert_equal (data_of_node node) (); + assert_equal (children_of_node node) [] + let suite = "VyConf tree tests" >::: [ - "test_dummy">:: test1; + "test_make_node" >:: test_make_node; ] let () = |