From 18ce7932e3dba76305dda202b3181763e54c4a50 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Sun, 11 Feb 2018 09:57:53 +0700 Subject: Rename Util.string_of_path to string_of_list since it can be used for any lists, not just config tree paths. Add analogous function for converting a list of strings to JSON. --- test/util_test.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test') diff --git a/test/util_test.ml b/test/util_test.ml index 58fd6e9..2f5bf5d 100644 --- a/test/util_test.ml +++ b/test/util_test.ml @@ -14,15 +14,15 @@ let test_find_xml_child_nonexistent test_ctxt = let elem = Xml.Element ("foo", [], [Xml.Element ("quux", [], [])]) in assert_equal (find_xml_child "bar" elem) None -let test_string_of_path test_ctxt = +let test_string_of_list test_ctxt = let path = ["foo"; "bar"; "baz"] in - assert_equal (String.trim (string_of_path path)) "foo bar baz" + assert_equal (String.trim (string_of_list path)) "foo bar baz" let suite = "Util tests" >::: [ "test_find_xml_child_existent" >:: test_find_xml_child_existent; "test_find_xml_child_nonexistent" >:: test_find_xml_child_nonexistent; - "test_string_of_path" >:: test_string_of_path; + "test_string_of_path" >:: test_string_of_list; ] let () = -- cgit v1.2.3