diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-02-28 09:13:54 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-02-28 09:13:54 +0600 |
| commit | 1a447ffb0794389fa62231ffb0898b68451c6aba (patch) | |
| tree | ababa2799abd60274851b6e915d9c88d9c364728 /test | |
| parent | b99887811733fef23ada237d0cfb6ab4708ee04c (diff) | |
| download | vyconf-1a447ffb0794389fa62231ffb0898b68451c6aba.tar.gz vyconf-1a447ffb0794389fa62231ffb0898b68451c6aba.zip | |
Tests for pathological cases of delete_child usage.
Diffstat (limited to 'test')
| -rw-r--r-- | test/vyconf_tree_test.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test/vyconf_tree_test.ml b/test/vyconf_tree_test.ml index cd60976..69efcfc 100644 --- a/test/vyconf_tree_test.ml +++ b/test/vyconf_tree_test.ml @@ -68,6 +68,11 @@ let test_delete_multi_level test_ctxt = let node'' = delete_child node' ["foo"; "bar"] in assert_equal node'' foo_node +(* Attempt to delete a node at non-existent path raises an exception *) +let test_delete_nonexistent test_ctxt = + let node = make "root" () in + assert_raises Nonexistent_path (fun () -> delete_child node ["foo"; "bar"]) + let suite = "VyConf tree tests" >::: [ "test_make_node" >:: test_make_node; @@ -77,7 +82,8 @@ let suite = "test_insert_duplicate_child" >:: test_insert_duplicate_child; "test_list_children" >:: test_list_children; "test_delete_immediate_child" >:: test_delete_immediate_child; - "test_delete_multi_level" >:: test_delete_multi_level + "test_delete_multi_level" >:: test_delete_multi_level; + "test_delete_nonexistent" >:: test_delete_nonexistent; ] let () = |