summaryrefslogtreecommitdiff
path: root/test/vytree_test.ml
diff options
context:
space:
mode:
Diffstat (limited to 'test/vytree_test.ml')
-rw-r--r--test/vytree_test.ml10
1 files changed, 10 insertions, 0 deletions
diff --git a/test/vytree_test.ml b/test/vytree_test.ml
index 4da2335..23c52ce 100644
--- a/test/vytree_test.ml
+++ b/test/vytree_test.ml
@@ -107,6 +107,15 @@ let test_update test_ctxt =
let node = insert node ["foo"] 1 in
assert_equal (data_of_node (get (update node ["foo"] 9) ["foo"])) 9
+(* rename works *)
+let test_rename test_ctxt =
+ let node = make 0 "root" in
+ let node = insert node ["foo"] 1 in
+ let node = insert node ["bar"] 2 in
+ let node' = rename node ["bar"] "quux" in
+ let child_quux = get node' ["quux"] in
+ assert_equal (data_of_node child_quux) 2
+
(* get_existent_path works *)
let test_get_existent_path test_ctxt =
let node = make () "root" in
@@ -171,6 +180,7 @@ let suite =
"test_get_child_multilevel" >:: test_get_child_multilevel;
"test_get_child_nonexistent" >:: test_get_child_nonexistent;
"test_update" >:: test_update;
+ "test_rename" >:: test_rename;
"test_get_existent_path" >:: test_get_existent_path;
"test_exists_existent" >:: test_exists_existent;
"test_exists_nonexistent" >:: test_exists_nonexistent;