diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/vyconf_tree_test.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/vyconf_tree_test.ml b/test/vyconf_tree_test.ml index d9cb76a..079228c 100644 --- a/test/vyconf_tree_test.ml +++ b/test/vyconf_tree_test.ml @@ -40,12 +40,20 @@ let test_insert_multi_level test_ctxt = let root = make_full "root" () [foo] in assert_equal root node' +(* list_children correctly returns a list of children names *) +let test_list_children test_ctxt = + let node = make "root" () in + let node' = insert_child () node ["foo"] () in + let node'' = insert_child () node' ["bar"] () in + assert_equal (list_children node'') ["foo"; "bar"] + let suite = "VyConf tree tests" >::: [ "test_make_node" >:: test_make_node; "test_insert_immediate_child" >:: test_insert_immediate_child; "test_insert_multiple_children" >:: test_insert_multiple_children; "test_insert_multi_level" >:: test_insert_multi_level; + "test_list_children" >:: test_list_children; ] let () = |