blob: a486249ae5d1b1ec515dfc1dd5d1faa8ecbf879d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
open OUnit2
module VT = Vytree
module CT = Config_tree
(* Setting a value of a node that doesn't exist should create the node *)
let test_set_create_node test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path (Some "baz") CT.ReplaceValue in
let values = CT.get_values node path in
assert_equal values ["baz"]
(* Setting a value with AddValue behaviour should append the new value *)
let test_set_add_value test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path (Some "baz") CT.AddValue in
let node = CT.set node path (Some "quux") CT.AddValue in
let values = CT.get_values node path in
assert_equal values ["baz"; "quux"]
(* Setting a value with ReplaceValue behaviour should replace the value *)
let test_set_replace_value test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path (Some "baz") CT.ReplaceValue in
let node = CT.set node path (Some "quux") CT.ReplaceValue in
let values = CT.get_values node path in
assert_equal values ["quux"]
(* Creating a node without a value should work *)
let test_create_valueless_node test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path None CT.AddValue in
assert_equal (CT.get_values node path) []
(* Deleting just one of many values should keep all other values intact *)
let test_delete_just_value test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path (Some "baz") CT.AddValue in
let node = CT.set node path (Some "quux") CT.AddValue in
let node = CT.delete node path (Some "quux") in
assert_equal (CT.get_values node path) ["baz"]
(* Deleting the last value should delete the whole leaf *)
let test_delete_last_value test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path (Some "baz") CT.AddValue in
let node = CT.delete node path (Some "baz") in
assert_equal ((not (VT.exists node path)) && (VT.exists node ["foo"])) true
(* Deleting a non-leaf node should delete the whole subtree *)
let test_delete_subtree test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path (Some "baz") CT.AddValue in
let node = CT.delete node ["foo"] None in
assert_equal (VT.list_children node) []
(* Setting a node comment for an existent node should work *)
let test_set_comment test_ctxt =
let path = ["foo"; "bar"] in
let node = CT.make "root" in
let node = CT.set node path None CT.AddValue in
let node = CT.set_comment node path (Some "comment") in
assert_equal (CT.get_comment node path) (Some "comment")
let suite =
"VyConf config tree tests" >::: [
"test_set_create_node" >:: test_set_create_node;
"test_set_add_value" >:: test_set_add_value;
"test_set_replace_value" >:: test_set_replace_value;
"test_create_valueless_node" >:: test_create_valueless_node;
"test_delete_just_value" >:: test_delete_just_value;
"test_delete_last_value" >:: test_delete_last_value;
"test_delete_subtree" >:: test_delete_subtree;
"test_set_comment" >:: test_set_comment;
]
let () =
run_test_tt_main suite
|
