diff options
| author | Daniil Baturin <daniil@baturin.org> | 2017-01-17 20:25:34 +0700 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2017-01-17 20:25:34 +0700 |
| commit | b76755c8d369f548fb418933688aa1e112480947 (patch) | |
| tree | d1c40935e711ad5f94d237f6167526bc09233fab | |
| parent | ff4a0f824b33dfce8010d0ba4a6075369bbfec94 (diff) | |
| download | vyconf-b76755c8d369f548fb418933688aa1e112480947.tar.gz vyconf-b76755c8d369f548fb418933688aa1e112480947.zip | |
Fix test of loading interface definitions.
It was failing because reference tree loader doesn't make guarantess about
the order of children in the resulting tree.
| -rw-r--r-- | test/reference_tree_test.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/reference_tree_test.ml b/test/reference_tree_test.ml index a3125be..b95a0ac 100644 --- a/test/reference_tree_test.ml +++ b/test/reference_tree_test.ml @@ -166,7 +166,8 @@ let test_load_interface_definitions_children test_ctxt = let interface_definitions_dir = in_testdata_dir test_ctxt ["interface_definitions"] in let r = ok_or_failure (load_interface_definitions interface_definitions_dir) in let children = Vytree.list_children r in - assert_equal children ["system"; "login"] + assert_equal (Vylist.in_list children "system") true; + assert_equal (Vylist.in_list children "login") true let test_load_interface_definitions_leaves test_ctxt = let interface_definitions_dir = in_testdata_dir test_ctxt ["interface_definitions"] in |