diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-24 18:27:50 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-24 18:27:50 +0600 |
| commit | 2272eaa7f0744c49449949a290de2fb65fa875c5 (patch) | |
| tree | 3a539fb26bea40f0b5d61066310f2adc0eb789ad /test | |
| parent | 5ee54a1416233759ee42f1810bce36c3efda45bc (diff) | |
| download | vyconf-2272eaa7f0744c49449949a290de2fb65fa875c5.tar.gz vyconf-2272eaa7f0744c49449949a290de2fb65fa875c5.zip | |
Trivial reference tree load test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/reference_tree_test.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/reference_tree_test.ml b/test/reference_tree_test.ml index 5181513..52e5a8d 100644 --- a/test/reference_tree_test.ml +++ b/test/reference_tree_test.ml @@ -2,7 +2,9 @@ open OUnit2 open Reference_tree let test_load_valid_definition test_ctxt = - assert_equal 0 0 + let r = Vytree.make default_data "root" in + let r = load_from_xml r (in_testdata_dir test_ctxt ["interface_definition_sample.xml"]) in + assert_equal (Vytree.list_children r) ["login"] let suite = "Util tests" >::: [ |