From 2272eaa7f0744c49449949a290de2fb65fa875c5 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Fri, 24 Apr 2015 18:27:50 +0600
Subject: Trivial reference tree load test.

---
 test/reference_tree_test.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'test')

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" >::: [
-- 
cgit v1.2.3