From 187d282353d74d185d4b1bbe4ce69bc1b2948aa9 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Thu, 23 Apr 2015 08:22:39 +0600 Subject: Add get_existent_path for finding the part of a path that already exists in a tree. --- test/vyconf_tree_test.ml | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'test') diff --git a/test/vyconf_tree_test.ml b/test/vyconf_tree_test.ml index edafb78..2aa100e 100644 --- a/test/vyconf_tree_test.ml +++ b/test/vyconf_tree_test.ml @@ -99,6 +99,13 @@ let test_update test_ctxt = let node = insert node ["foo"] 1 in assert_equal (data_of_node (get (update node ["foo"] 9) ["foo"])) 9 +(* get_existent_path works *) +let test_get_existent_path test_ctxt = + let node = make () "root" in + let node = insert node ["foo"] () in + let node = insert node ["foo"; "bar"] () in + assert_equal (get_existent_path node ["foo"; "bar"; "baz"]) ["foo"; "bar"] + let suite = "VyConf tree tests" >::: [ "test_make_node" >:: test_make_node; @@ -114,6 +121,7 @@ let suite = "test_get_child_multilevel" >:: test_get_child_multilevel; "test_get_child_nonexistent" >:: test_get_child_nonexistent; "test_update" >:: test_update; + "test_get_existent_path" >:: test_get_existent_path; ] let () = -- cgit v1.2.3