diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-03-27 07:56:04 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-03-27 07:56:04 +0600 |
| commit | 8855202f9ee4769b20d36cda8d0e4e20b9c31a2d (patch) | |
| tree | cb8fc65f13ffdef4cea67994eeae51153aedc00c /test | |
| parent | 543409e6acfb9851e3fc1d78f4ba6b34b3bebc60 (diff) | |
| download | vyconf-8855202f9ee4769b20d36cda8d0e4e20b9c31a2d.tar.gz vyconf-8855202f9ee4769b20d36cda8d0e4e20b9c31a2d.zip | |
Use cons instead of append for inserstions by default.
Diffstat (limited to 'test')
| -rw-r--r-- | test/vyconf_tree_test.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/vyconf_tree_test.ml b/test/vyconf_tree_test.ml index bf9f982..3e9a0e0 100644 --- a/test/vyconf_tree_test.ml +++ b/test/vyconf_tree_test.ml @@ -28,7 +28,7 @@ let test_insert_multiple_children test_ctxt = let node' = insert () node ["foo"] () in let node'' = insert () node' ["bar"] () in assert_equal (children_of_node node'') - [make "foo" (); make "bar" ()] + [make "bar" (); make "foo" ()] (* Inserting a child at a two-item path creates a tree two levels deep *) @@ -51,7 +51,7 @@ let test_list_children test_ctxt = let node = make "root" () in let node' = insert () node ["foo"] () in let node'' = insert () node' ["bar"] () in - assert_equal (list_children node'') ["foo"; "bar"] + assert_equal (list_children node'') ["bar"; "foo"] (* Deleting a child, well, deletes it *) let test_delete_immediate_child test_ctxt = |